stars by prs for 


s/w 21d 


6077/ 




/stars 1 . 3/13/62 


, prs. 


decimal 




define 




mark X, Y 




repeat 8, 


Y=Y+Y 


8192-X 


Y 


terminate 




Ij, mark 1537^ 


371 


mark I762, 


-189 


mark I990, 


168 


mark 2;;8o, 


-377 


mark 2583, 


125 


mark 3431, 


283 


mark 4551, 


-242 


mark 4842, 


448 


Iq, mark 6747, 


196 


2 J, mark 1819, 


143 


mark ^ 1884, 


-29 


mark I910, 


-46 


mark 1951, 


-221 


mark 2152, 


-407 


mark 2230, 


375 


mark 3201, 


-187 


mark 4005, 


344 


2q, mark 5975, 


288 


3j, mark 46, 


333 


mark 362, 


-244 


mark 490, 


338 


mark 566, 


-375 


mark 621, 


462 


mark 764, - 


-78 


mark 900, 


64 


mark IO07, 


84 


mark 124-3, 


-230 


mark 1328, 


-314 


mark l495. 


432 


mark l496. 


356 


mark 1618, 


154 


mark l644. 


52 


mark 1723, 


-119 


mark 1755, 


-371 


mark 1779, 


-158 


mark I817, 


-57 


mark 1843, 


-474 


mark i860. 


-8 


mark 1868, 


-407 


mark 1875, 


225 


mark 188O, 


-136 


mark 1887, 


480 


mark 1948, 


-338 


mark 2274, 


296 



/87 Taur, 
/19 Orlo, 
/58 Orlo, 
/9 CMaj, 
/lO CMln, 
/32 Leon, 
/67 Vlrg, 
/I6 Boot, 
/53 Aqll, 



Aldeloaran 
Rlgel 

Betelgeuze 
Slrius 
Procyon 
Regulus 
Splca 
Arcturus 
Altalr 



/24 Orlo, Bellatrlx 

/46 Orlo 

/50 Orlo 

/53 Orlo 

/ 2 CMaJ 

/24 Gemi 

/30 Hyda, Alphard 

/94 Leon, Denebola 

/55 Ophl 

/88 Pegs, Algenlb 

/31 Cetl 

/99 Plsc 

/52 Get! 

/ 6 Arle 

/68 Cetl, Mlra 

/86 Cetl 

/92 Cetl 

/23 Erld 

/34 Erld 

/74 Taur 

/78 Taur 

/ 1 Orlo 

/ 8 Orlo 

/67 Erld 

/ 5 Leps 

/20 Orlo 

/28 Orlo 

/ 9 Leps 

/34 Orlo 

/ll Leps 

/39 Orlo 

/44 Orlo ■ 

/I 2 3 Taur 

/l4 Leps 

/31 Geml 



mark 246o, 380 /54 Geml 



3q, 



mark 2470, 504 
mark 2513, 193 
mark 2967, 154 
mark 3016, l44 
mark 3424, 393 
mark 3496, 463 
mark 3668, -357 
mark 3805, 479 
mark 3806, 364 
mark 4l24, -502 
mark 4l57, -387 
mark 4236, -363 
mark 43o4, -21 
mark 4384, 90 
mark 4421, 262 
mark 46o6, -2 
mark 4721, 430 
mark 5037, -356 
mark 5l86, -205 
mark 5344, 153 
mark 5357, 358 
mark 5373, -71 
mark 5430, -508 
mark 5459, -445 
mark 5513, -78 
mark 5536, -101 
mark 5609, 494 
mark 564l, -236 
mark 5828, -355 
mark 586O, 330 
mark 5984, -349 
mark 6o47, 63 
mark 6107, -222 
mark 6 15 9, 217 
mark 6236, -66 
mark 6439, -483 
mark 6490, 312 
mark 6491, -II5 
mark 6507, -482 
mark 6602, 66 
mark 672I, 236 
mark 6794, 437 
mark 6862, -25 
mark 69l4, -344 
mark 7014, 324 
mark 7318, -137 
mark 7391, 2l4 
mark 74o4, -377 
mark 7513, -I8 
mark 7539, 130 
mark 7644, -12 
mark 7717, 235 
mark 7790, -372 
mark 7849, 334 



/55 Gemi 

/ 3 CMln 

/ll Hyda 

/16 Hyda 

/30 Leon 

/4l Leon, Algleba 

/nu Hyda 

/68 Leon 

/lO Leon 

/ 2 Corv 

/ 4 Corv 

/ 7 Corv 

/29 Virg 

/43 Vlrg 

/47 Vlrg 

/79 Virg 

/ 8 Boot 

/ 9 LlTor 

/27 Libr 

/24 Serp 

/28 Serp 

/32 Serp 

/ 7 Scor 

/ 8 Scor 

/ 1 Ophl 

/ 2 Ophl 

/27 Here 

/13 Ophl 

/35 Ophl 

/64 Here 

/55 Serp 

/62 Ophl 

/64 Ophl 

/72 Ophl 

/58 Serp 

/37 Sgtr 

/I7 Aqil 

/16 Aqll 

/4l Sgtr 

/30 Aqll 

/5O Aqll 

/12 Sgte 

/65 Aqll 

/ 9 Capr 

/ 6 Dlph 

/22 Aqar 

/ 8 Pegs 

/49 Capr 

/34 Aqar 

/26 Pegs 

/55 Aqar 

/42 Pegs 

/76 Aqar 

/54 Pegs, Markab 



4j, 



mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

marc 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 



5h, 

82, 
223, 
248, 
273, 
329, 
376, 
450, 
548, 
570, 

595, 
6o6, 

615, 
617, 
656, 
665, 
727, 
803, 
813, 
838, 
878, 

907, 
908, 

913, 

947, 

976, 

992, 

1058, 

1076, 

1087, 

1104, 

1110, 
1135, 
1148, 
1168, 
1170, 
1185, 
1191, 
1205, 
1260, 
1304, 
1338, 

1353, 
1358, 
1405, 
l4l4, 
1423, 
1426, 
1430, 
1446, 
1463, 
1470, 
1476, 
1477, 



-143 

447 

-443 

-2l4 

-254 

160 

-38 

167 

467 

-198 

113 

197 

-255 

-247 

428 

61 

-491 

52 

191 

-290 

182 

-357 

-2 

-34o 

221 

-432 

-487 

-212 

194 

440 

470 

-209 

68 

-503 

198 

214 

287 

-123 

-223 

-500 

2 

-283 

-74 

278 

130 

497 

-162 

205 

197 

-178 

463 

350 

394 

392 

502 

403 



/33 Plsc 
/89 Pegs 
/ 7 Cetl 
/ 8 Ceti 
/17 Cetl 
/63 Plsc 
/20 Ceti 
/71 Pise 
/84 Pise 
/45 Ceti 
/106 Pise 
/no Plsc 
/53 Ceti 
/55 Ceti 
/ 5 Arie 
/l4 Pise 
/59 Ceti 
/113 Pise 
/65 Cetl 
/72 Ceti 
/73 Ceti 
/76 Ceti 
/82 Ceti 
/89 Ceti 
/87 Ceti 
/ 1 Erid 
/ 2 Erid 
/ 3 Erid 
/9I Ceti 
/57 Arie 
/58 Arie 
/13 Erid 
/96 Cetl 
/16 Erid 
/ 1 Taur 
/ 2 Taur 
/ 5 Taur 
/17 Erid 
/I8 Erid 
/19 Erid 
/lO Taur 
/26 Erid 
/32 Erid 
/35 Taur 
/38 Taur 
/37 Taur 
/38 Erid 
/47 Taur 
/49 Taur 
/40 Erid 
/50 Taur 
/54 Taur 
/61 Taur 
/64 Taur 
/65 Taur 
/68 Taur 



mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 



1483, 
1485, 
1495, 
1507, 
1518, 
1526, 

1537, 
1544, 

1551, 
1556, 

1557, 
1571, 
1596, 
1622, 
1626, 
1638, 
1646, 
1654, 
1669, 
1680, 

1687, 
1690, 
1690, 
1700, 
1729, 
1732, 
1750, 

1753, 
1756, 

1792, 
1799, 
1801, 
1807, 
1816, 
1818, 
1830, 
1830, 
1831, 

1857, 
1861, 
1874, 
1878, 
1880, 
1885, 

1899, 
1900, 
1900, 
1909, 
1936, 
1957, 
1974, 
1982, 
2002, 
2020, 
2030, 



350 
330 
358 

364 
-6 

333 
226 

-81 

280 

358 

-330 

-452 

-78 

199 

124 

-128 

228 

304 

36 

-289 

-167 

-460 

488 

347 

352 

-202 

-273 

63 

-297 

-302 

-486 

-11 

79 

-180 

40 

497 
69 

134 
421 
-168 
21 4 

-138 

-112 
210 

-60 

93 

-165 

375 

-511 

287 

-475 
46i 

-323 

-70 

220 



/71 Taur 
/73 Taur 
/77 Taur 

/45 Erid 
/86 Taur 
/88 Taur 
/48 Erld 
/90 Taur 
/92 Taur 
/53 Erld 
/54 Erld 
/57 Erld 
/ 2 Orlo 
/ 3 Orlo 
/6I Erid 
/ 7 Orlo 
/ 9 Orlo 
/lO Orlo 
/64 Erld 
/65 Erld 
/ 

/102 Taur 
/ll Orlo 
/15 Orlo 
/69 Erld 
/ 3 Leps 
/17 Orlo 
/ 4 Leps 
/ 6 Leps 

/22 Orlo 
/23 Orlo 
/29 Orlo 
/25 Orlo 
/ll4 Taur 
/30 Orlo 
/32 Orlo 
/II9 Taur 
/36 Orlo 
/37 Orlo 

/42 Orlo 
/4o Orlo 
/48 orlo 
/47 Orlo 
/49 Orlo 
/126 Taur 
/13 Leps 
/134 Taur 
/15 Leps 
/54 Orlo 
/16 Leps 

/61 Orlo 



mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 



2032, 
2037. 
2057, 
2059, 
2084, 
2084, 
2105, 
2112, 

2153, 
2179, 
2179, 
2184, 

2204, 
2232, 
2239, 
2245, 
2250, 
2266, 
2291, 
2327, 

2328, 
2330, 
2340, 
2342, 
2378, 

£379, 
2385, 
2428, 
2491, 
2519, 
2527, 
2559, 
2597, 
2704, 

2709, 
2714, 

2751, 
2757, 
2768, 
2794, 
2848, 
2915, 
2921, 
2942, 
2944, 
2947, 
2951, 

2953, 
2968, 

2976, 
3032, 
3124, 

3157, 
3161, 

3209, 
3225, 
3261, 



-24l 

458 
-340 

336 
368 

324 
-l42 

-311 

106 

462 

-107 

-159 

168 

-436 

-413 

-320 

227 

303 

57 

303 

-457 

-271 

-456 

-385 

-93 
471 

-352 
-8 

-429 

208 

278 

-503 
-212 
-4l2 

-25 

60 

-61 

-431 

-288 

216 

-82 

138 

84 

-355 

497 

85 

-156 

421 

-300 

l4l 

279 
62 

-263 
-208 

-53 
-17 
116 



/ 3 Mono 
/62 Orio 
/18 Leps 
/67 Orlo 
/69 Orlo 
/70 Orlo 
/ 5 Mono 

/ 8 Mono 
/18 Geml 
/lO Mono 
/ll Mono 
/13 Mono 
/ 7 CMaj 
/ 8 CMaj 

/15 Mono 
/30 Geml 
/I8 Mono 
/38 Geml 
/15 CMaj 
/l4 CMaj 
/19 CMaj 
/20 CMaj 
/I9 Mono 
/43 Geml 
/23 CMaj 
/2 2 Mono 

/ 4 CMin 
/ 6 CMln 

/26 Mono 

/28 Mono 

/29 Mono. 
/16 Pupp 
/19 Pupp 
/17 Cane 



/ 5 
/ 9 



Hyda 
Hyda 
Hyda 
743 Cane 
/ 7 Hyda 

/ 

747 Cane 

712 Hyda 

713 Hyda 
765 Cane 
722 Hyda 

726 Hyda 

727 Hyda 

731 Hyda 

732 Hyda 

7 



mark 3270, 


-16 


/35 Hyda 


mark 3274, 


-316 


/38 Hyda 


mark 3276, 


236 


/l4 Leon 


mark 3338, 


-327 


/39 Hyda 


mark 3385, 


194 


/29 Leon 


mark 34l5, 


-286 


/40 Hyda 


mark 3428, 


239 


/31 Leon 


mark 3429, 


3 


/I5 Sext 


mark 3446, 


-270 


/4l Hyda 


mark 3495, 


455 


/40 Leon 


mark 3534, 


-372 


/42 Hyda 


mark 3557, 


-3 


/30 Sext 


mark 3570, 


2£3 


/47 Leon 


mark 3726, 


-404 


/al Crat 


mark 3736, 


-44 


/61 Leon 


mark 3738, 


471 


/60 Leon 


mark 3754, 


179 


/63 Leon 


mark 3793, 


-507 


/ll Crat 


mark 3821, 


-71 


/74 Leon 


mark 3836, 


-324 


/12 Crat 


mark 3846, 


150 


/77 Leon 
/78 Leon 


mark 3861, 


252 


mark 3868, 


-390 


/15 Crat 


mark 3935, 


-211 


/2I Crat 


mark 3936, 


-6 


/9I Leon 


mark 398l, 


-4o5 


/27 Crat 


mark 3986, 


161 


/ 3 Vlrg 


mark 3998, 


473 


/93 Leon 


mark 4013, 


53 


/ 5 Vlrg 


mark 407£, 


163 


/ 8 Vlrg 


mark 4097, 


211 


/ 9 Vlrg 


mark 4l80, 


-3 


/15 Vlrg 


mark 4l85, 


4i8 


/ll Coma 


mark 4249, 


-356 


/ 8 Corv 


mark 4290, 


-170 


/26 Virg 


mark 4305, 


245 


/30 Virg 


mark 4376, 


-205 


/40 Vlrg 


mark 4403, 


409 


/36 Coma 


mark 4465, 


-ll4 


/5I Vlrg 


mark 4466, 


4ii 


/42 Coma 


mark 4512, 


-4o4 


/61 Vlrg 


mark 4563, 


-352 


/69 Virg 


mark 4590, 


-131 


/74 Vlrg 


mark 4603, 


95 


/78 Virg 


mark 4679, 


409 


/ 4 Boot 


mark 4691, 


371 


/ 5 Boot 


mark 4759, 


46 


/93 Virg 


mark 4820, 


66 


/ 


mark 4822, 


-223 


/98 Vlrg 


mark 484o, 


-126 


/99 Virg 


mark 4857, 


-294 


/lOO Virg 


mark 4864, 


382 


/20 Boot 


mark 4910, 


-41 


/IO5 Virg 


mark 4984, 


383 


/29 Boot 


mark 4986, 


322 


/30 Boot 


mark 4994, 


-119 


/IO7 Virg 



mark 5009, 


396 


mark 5013, 


53 


mark 5045 > 


444 


mark 5074, 


-90 


mark 5108, 


57 


mark 5157, 


-442 


mark 5283, 


-221 


mark 5290, 


-329 


mark 5291, 


247 


mark 5326, 


-440 


mark 5331, 


455 


mark 5357, 


175 


mark 5372, 


420 


mark 538l, 


109 


mark 5387, 


484 


mark 539^, 


-374 


mark 54l5, 


364 


mark 54l9, 


-318 


mark 5455, 


-253 


mark 5467, 


-464 


mark 5470, 


-469 


mark 5497, 


-437 


mark 5499, 


-223 


mark 5558, 


29 


mark 556l, 


441 


mark 5565, 


-451 


mark 5580, 


325 


mark 5582, 


-4i5 


mark 5589, 


-186 


mark 5606, 


-373 


mark 5609, 


50 


mark 5610, 


-484 


mark 5620, 


266 


mark 5713, 


-24l 


mark 5742, 


235 


mark 5763, 


217 


mark 5807, 


293 


mark 5868, 


-8 


mark 5888, 


-478 


mark 5889, 


-290 


mark 5924, 


-114 


mark 5925, 


96 


mark 5987, 


-183 


mark 6006, 


-292 


mark 6016, 


-492 


mark 6117, 


-84 


mark 6 11 7, 


99 


mark 6119, 


381 


mark 6119, 


67 


mark 6125, 


30 


mark 61 46, 


57 


mark 6158, 


198 


mark 6170, 


473 


mark 6188, 


-480 


mark 6234, 


76 


mark 6235, 


499 



/35 Boot 
/109 Virg 
/37 Boot 
/16 Llbr 
/no Vlrg 
/24 Llbr 
/37 Llbr 
/3o Llbr 
/13 Serp 
/43 Libr 
/21 Serp 
/27 Serp 
/35 Serp 
/37 Serp 
/38 Serp 
/46 Llbr 
/4l Serp 
/48 Llbr 
/xl So or 
/ 9 Scor 
/lO Scor 
/14 Scor 
/I5 Scor 
/50 Serp 
/20 Here 
/ 4 Ophi 
/24 Here 
/ 7 Ophi 
/ 3 Ophi 
/ 8 Ophi 
/lO Ophi 
/ 9 Ophi 
/29 Here 
/20 Ophi 
/25 Ophi 
/27 Ophi 
/60 Here 
/4l Ophi 
/40 Ophi 
/53 Serp 

/49 Ophi 
/57 Ophi 
/56 Serp 
/58 Ophi 
/57 Serp 
/66 Ophi 
/93 Here 
/67 Ophi 
/68 Ophi 
/70 Ophi 
/7I Ophi 
/102 Here 
/13 Sgtr 
/74 Ophi 
/IO6 Here 



mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 

mark 



6247, 
6?54, 

6255, 
6?78, 

6313, 
6379, 
6382, 
6386, 
6436, 
6457, 
6465, 
6478, 

6553, 
6576, 
6576, 
6607, 
6651, 
6657, 
6665, 
6688, 

6693, 
6730, 
6739, 
6755, 
6766, 
6772, 
6882, 
6896, 
6898, 

6913, 
6958, 
6988, 
7001, 

7015, 
7020, 
7026, 
7047, 
7066, 

7067, 
7068, 
7096, 
7161, 
7170, 
7192, 
7199, 
7223, 
7230, 
7263, 
7267, 
7299, 
7347, 
7353, 
7365, 
7379, 
739-^, 
7499, 
7513, 



-204 

-469 
494 

-333 

-189 
465 
-110 
4il 

93 

340 

-134 

-498 

483 

-4l0 

-368 

3 

163 

445 

-35 

405 

393 

4l6 

430 

17 

187 

l4o 

339 

-292 

-292 

-297 
-4i3 

250 
326 
-33 
475 
354 
335 
359 

~c c:5 

-123 

-213 

-461 
-4oi 

-268 

222 
219 
110 

-393 

441 

-506 

-453 

-189 

-390 

-440 

384 

-60 

104 



/xi Scut 
/2I Sgtr 
/IO9 Here 
/ga Scut 
/al Scut 
/no Here 
/be Scut 
/ill Here 
/63 Serp 
/13 Aqll 
/12 Aail 
/39 Sgtr 
/ 1 Vulp 
/44 Sgtr 
/46 Sgtr 
/32 Aqll 
/38 Aqll 
/ 9 Vulp 
/4l Aqll 
/ 5 Sgte 
/ 6 Sgte 
/ 7 Sgte 
/ 8 Sgte 
/55 Aqll 
/59 Aqll 
/60 Aqll 
/67 Aqll 
/ 5 Capr 
/ 6 Capr 
/ 8 Capr 
/ll Capr 
/ 2 Dlph 
/ 4 Dlph 
/7I Aqll 
/29 Vulp 
/ 9 Dlph 
/ll Dlph 
/12 Dlph 
/ 2 Aqar 
/ 3 Aqar 
/ 6 Aqar 
/22 Capr 
/23 Capr 
/13 Aqar 
/ 5 Equl 
/ 7 Equl 
/ 8 Equl 
/32 Capr 
/ 1 Pegs 
/36 Capr 
/39 Capr 
/23 Aqar 
/40 Capr 
/43 Capr 
/ 9 Pegs 
/3I Aqar 
/22 Pegs 



^q. 



mark 7515, 


-327 


mark 7575, 


-189 


mark 7603, 


-43 


mark 76o4, 


266 


mark 7624, 


20 


mark 7639, 


96 


mark 7654, 


-£55 


mark 7681, 


-14 


mark 7727, 


-440 


mark 77^7, 


266 


mark 776l, 


-321 


mark 7779, 


-185 


mark 7795, 


189 


mark 7o44, 


75 


mark 7862, 


202 


mark 787^, 


_494 


mark 7903, 


-150 


mark 7911, 


-219 


mark 7919, 


62 


mark 7923, 


-222 


mark 7952, 


-470 


mark 7969, 


-482 


mark 7975, 


16 


mark 798l, 


133 


mark 7988, 


278 


mark 8010, 


-489 


mark 8o49, 


116 


mark 8059, 


-4i8 


mark 8061, 


28 


mark 8o64, 


-344 


mark 8159, 


144 


mark 8174, 


-149 


mark 8188, 


-407 



/33 Aqar 
/43 Aqar 
/48 Aqar 
/31 Pegs 
/5c Aqar 
/35 Pegs 
/57 A ar 
/6£ Aqar 
/66 Aqar 
/46 Pegs 
/7I Aqar 
/73 Aqar 
/50 Pegs 
/ 4 Pise 
/55 Pegs 
/88 Aqar 
/90 Aqar 
/9I Aqar 
/ 6 Pise 
/93 Aqar 
/98 Aqar 
/99 Aqar 
/ 8 Pise 
/lO Pise 
/70 Pegs 
/lOl Aqar 
/I7 Pise 
/104 Aqar 
/18 Pise 
/IO5 Aqar 
/28 Pise 
/30 Pise 
/ 2 Ceti 



start 4 



/title punch tabl 



ftp/ 








004277 

224i45 


4OC00C 




• 625151 


5l46co 


453200 




l4l211 


771000 


274545 


453100 




364545 


453000 


010171 


050300 




324545 


453200 


065151 


513600 



























n 


















364i4i 


413600 


4o2Ci4 


020100 




224545 


453000 


010177 


010100 




374o4o 


403700 


073060 


30070c 




376010 


603700 


4l22l4 


224100 




010274 


020100 


6i5l4i 


45430c 










l4i4i4 


l4i4oo 





































2o4o4o 


403700 




771014 


224100 


774o4o 


4o4ooo 




770214 


027700 


770214 


207700 




364i4i 


413600 


771111 


1106CO 




364151 


21560c 


771111 


314600 


















101010 


101000 


oooo4i 


22i4oo 




101074 


101000 


001422 


410000 










761111 


117600 




774545 


453200 


364i4i 


412200 




774i4i 


4i36oo 


774545 


4i4ioo 




770505 


010100 


364151 


513000 




771010 


107700 


oo4i77 


410000 




010300 


010300 


000060 


600000 




030200 


030200 
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ps5 
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' --^-, -^-r p 



" t- 



hn 



C. ' r V. 



-^--P p--. '' use tost word for control, r.ot lot H co 

/ inteTBHtlnr end cften changed conGt?nts 

/syrnb loc usua.l --alue (all instr-Qtlons -^-.re fi'-scvf^d. 
/ and -ay be replaced by jda or jsri) """ 

tno, 6^ law i ^ii / nurrbar of toras -:• l 

tvl, 7^ sar 4s / torpodo V^elocltv 

rltj 10^ law 1 20 / torpedo reloed t-'n;e 

tlf, 11,, law i l4c " 7 to^-redo '■''•' -^e 

foo, 12, ~2C0C0 / r'uel supply 

mS-Ej 13 > 10 / spaces-iio angular aacelerat"' or 

sacj 14, sar 4s / spaceshlo accele^-ation 

str, 15^ IOC / star capture radius 

rael, 15, 6000 / con ^s^ on "■^pdii^'^" 

me2, 17, ?C00 / above/2 

ddd, 20, -0 / to sa^v'e coa,ce for ddt 

the, 21, sar 9s / amount of torpedo space warnage 

mhs, 22, law l 10 / number of hj'-perspace shots 

hdl, 23, 1'3-w 1 l\Q / tlr.e in h'^-^oerspa'^p' b'^'''o---=o hr■sr^p1.-n^^1~ 

na^, ^4, iav,' ,^.. lOO / tltr.e in hyperspace breakout 

nu^^j cp, law 1 200 / time to recharge hyoer'T'^' el<"^ -"enerp to'^'^ 

hrl, 26, sol 9s / scale on hyperspatial disalacernent ^^-■■'-■- 

hr2, 27, scl 4s / scale on hynerspatially nnduce-' -Vloc-^ •^•'.'■ 

hmy, 30, 4C000 / hyperspatiei uncert?ncy " ""' '""'"' 

ran, 31, / random number 

grv, 32, sar 6s / gra-i tatlonal constant 

/ place to build a pri-^ate control word routine. 

/ it should lea'-'e the control vrord in the -"o ??s ^'ol i ows . 

/ high orde- 4 bits, rotate cow. rotate c^'-, (both near "'hy-i=>-o.rsa^e'^ 

/ fire rochet, and fire torpedo. Low order 4 bits, sare'-^o^ " ' 

/ other ship. Routine -' s entered by "sa c-jo-. 

40/ 

cwr, -::p mgl / ncraally lot 11 control 
. 20/ / soacs 



/ I'outine to fli;.5>h seouenco brea' 



SDf^ 


ty: 




lio 2 




lac 




■ Ism. 




Jn:p i 1 




define 


xlncr 


X, Y.IKS 




lac Y 




INS ssn 




dac Y 




lac X 




INS sen 




dac X 




te^n 




define 



ylncr X,Y;,TNS 

lac Y 



INS sen 

dac Y 

lac X __ 

-IHS-l-addH-sul) ssn 

dac X 

f- ft -yrrn -* i-ip +- ^^ 

d. S f i P C 



discatch 





add (. 3 




dap , 1 








1 9 tt; 






dlspt 






""^CC^OP "t^ o 




1- Y 




jda '-cb 




r.ct dbl 




tern: 




define 


scale 






T p. c ^' 




sa-'- 3 




dac C 




tan'i 



rl■:r^P 



" n ? 



dj 


ff 


v,s 


.SF 












add 


- 


Y 








dac 


-J 


Y 








xct 


SF 








ad^ 


-■ 


s 








dac 


a. 


s 








terrr 







■'randoa 

lac ran 
ra.r Is 
xor (355670 
add (35567c 
dac ran 
term 



define 
r&nct S;,SS,C 

random 
S 

ss. 

sma 

craa 

terRlna.te 



define 



v2, 



define 



define 



sft. 



■\rp^T->< 


3ft 


dzrn' 
da.c 


w 


idx 


^ys 


idx 




lac 


scr 


2s 


dac 


r-4 


sza 




Jn:p 


V2+R 


scr 


2s 


swap 


terr 


nlnate 


iindosft 


dac 




dlo 


12 


lac 


xys 


add 


sft 


dap 


.+ 


lac: 


« 


dac 


.+6 


dac 


.+6 


xor 


( 10000 


dac 


xyt 


lac 


Fi 


dlo 


t"2 


scr 


• 


scr 


• 


termrinate 


integrate . 


ell 




lac 


i A 


scr 


9s 


scr 


Is 


dlv 


Tl 


hit 




cma+cli-on: 


xct 


xyt 


xct 


grv 


da,c 


B 


terr 


r^,nate 


lac 


~1 


scr 


is" 


s cv 


6s 


scr 


5s 


scr 


Hs 




Is 


SC"" 


2s 


scr 


" s 


ser 




scl 


■^ f! 



/ changescr to scl or scl to scr. 






/s • ne-coslne subrout:' ne ".".c'a.rr.s 
/c3 1 1 1 n g s e cm e n c e -- n ur h e '■'' 1, n 
./argument Is "betvieen +2 pi. ?j 
/answer has binary point to r 



r^. n S O ("^ '" rl t", '^ 






rC, jci^. sin or jdaccs. 






1th blnarj^ point to r~ 


ght Of Id: 


' 4- 


-■ f- >■,■!-_ Qf 1.,^- i- n rp-Vf-p - 


. 2.3?-'' : 


r fx 


^ ^1 ^,, 'i /^ Q /ji; -:7 







:oS; 



sin, 



dap CSX 
lac (622-0 
add cos 
ciac sin 



c3ap CSX 

lac sin 
spa 

all, add (3llo4o 

sub (62210 
sma 

jmo sl2 

add (62210 



si3. 


ral 


2s 




r\iJ 


(242763 




dac 


s^n 




TiUl 


sin 




dac 


cos 




raul 


(756103 




add 


(121312 




.Tail 


cos 




pdd 


(532511 




nul 


cos 




add 


( 14411, 17 




T.Ul 


s In 




scl 


3s 




dac 


cos 
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s In 




sma 






jmp 


csx-1 




lac 


( 377777 




llo 


sin 




spi 






cina 






jc-;p 


CSX 




lac 


cos 


CSX., 


-'- -< 


• 


s-2. 


fivv^rs 





add (62210 
sma 

o- -i- >-; --J 

odd ! 62210 

^-::0 .^-O 



/integer scuare x'oot 

/input ■ '": ac. b:*,nar^' 'ooint to r'pht of" h' z 17 'f^a n^' 
/answer in ?,. c with o:' np.i"' 'DO''.v.t "^Dot'fcer n-'ts ^'^ ?,nd '^ 
/isrgest ''.n'oi't. nurlDe;:? -= 'jjin^ii 



sq3, 



sax , 



Q 




rl '^ T^ 

law 




da,c 


sc ■^ 


rtzn- 


sg2 
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izrr 


^ ■■"* ■?- 

sit 


isp 


S'^1 


1 r- ,-. 


^.nO 



la- 


EC'S 


sal 


Is 


dac 


Sq2 


lac 


sot 


veil 


2 b 


SZ2 


"'; 




sc3 


da c 


sot 


lac 


3C2 


fi G. 1 


Is 


add 




S lit) 


set 


sr::a.-! 


;-c', 'T;?. — S'''"T 


-•■CD 


B '"I "^i 






S"2, 
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define 






"0 T ■■■ Ti ?t "f" A 




ia^c A. 




/"I *:t ^Ti * Q ^ 




■■ /^-^y p^p 




termine-te 



, define 

cornteb !'^ . B 

;^ - i i - b <..- 

la,c B 

OCR ^ dap ocz Ap,^4-j-, J ^, BWP"^ 

6.20 ' oc 

IdX OO; 

ocz ,. Jr^p . 

oc . ^OV.l". ''. ■' /I?;- cor")-' 1^"'^ OT'O'Df^' 



odti , 



■'ac "^ OCX 
dr o OC" 
pllnct'^Cstf 5 
ir.p ocm 

cif '^ _^'"' 

oc^., setDo occ,. ^ 

ocg, llo . /c\?.tl-' ne ta'cle 



d-" f^pptch 

COT* 



ocq, J : cc? 






"'"■■ l^nst fszf* '^ 
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dao ocr> 

'■)1 ■' nst- ocin 

'0 1 ' n G ""r. f c"! s c ~t .1 

T) 1 i ns t} f '"' ' c B"'^ 

pi Inst 
D T ^ n S ■!"• 
pllnst 
plinst 
plinst 
plinst 
plinst 
plinst 
plinst 
plinst luc 

fy J — .lit:! K/ t { i > 






^ --, '1 l~, 



pliriGt 







OCX;, 

ocn^ 



oce^f 



ocd^ 
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count occ^ och 

jnip ocj 

o"2, costEb ^?.dd 

o:i3j comtats fedd 

oc'o coiT.tab (sub 

cc5^ camtab farri 



ol'-i-^ 


• 






j:;:p 


' 






plii 


:1G t 




.dd i 


l8C 
d£.C 

idx 


OC 
(3 

OC 


OC 


s (* n 


jsp oc 
■olinst 
lac (:: 


"(i 

C L. 


oil 
do? 


dac 

Idr 

1 ' ^^ 


OC 


OC 





■ . 


! , ,.-, ,, — _^ 
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sz 


^ 
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pi 






■ Cv ^ 
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c 


(di 


,0 
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J- 




CO'- 
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ir 


i..J V 






T ^. 


^^ 


/-) ■ 


.'■■•, 


"TTt 



31': 



defi"; 



\j j^'^ ^ 



bpt J, 



1^ i1 ■ 



.fejr*. 



bds. 



xet db2 



S2S 6c 



^*>i^ "K^ 



CJ r^ 



d (. h^-(^.^^'C- 



::or {3'J7'JT! 

dac bx 

Is, C I'T.:'! 

rip 1 ilo. 

p, v^ ,-1 f li. n n 'T o '"' 

"-or _[377777 

dac by 

jsp bpt 
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"•anaoii'i 



sar 


O O 


sar* 


6n 


spa 




crna 




se 1 




add 


(bds 


dap 


r' 


cla 


->! -; _ 




,'.! 


JL.P 


1:)^". 


sub 


nyl 


8 WO 




SXi c 


n" i 




D j'\-~ 


•-,' s.:; iLj 





swp 



i;o :::■ 



Al-C 






Aa',*' Z-' 



/'• -^ /' 



C^;^ ^*> i^-^ t^ 



fs 



dE'D 


■^■"■J,'^ 




"■ ■ " "' - ~ 


,-,1 ■'» 


rz 


V -;■.. - . 


— "■ 
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■^1 ?-.j..~? 


dp--) 


-^--r-'.^ 


^ -...''.,^ i ^ -„ 


dap 


fin+n 


da-3 





fin. 


lac 






sub 












SUt' 


^ O r> r> p p; 

(2C0C 




aad 


fi*r, 


spc 




foil. 


Jmp 


fuu-FR 


fie. 


sub 


fiooc 

As 




sal 


fyn. 


llo 


■ A • o 




jda 






:cct 


dbl 




str 




J. A.(l , 


Idx 


f^n+H 




nad 


(l-c H.2 




J-.-P 


fi-5+r: 




se.d 


^po+R 


, \j. . 




Ta+R 




da-D 


:^'*':-;+R 




:' '^i 


^yn+R 




' >---o 


■p.- ..,J_P 



■fuu^^ 


GSf 


c: 


fx; 


Idx 


^"! o+R 




id" 


-r'l .^|.i,.T2 




sas 


fn^ 2 




lew 


J 




d£C 


•'^lOH-R 



/.-,.- 






^- G ; , 



.^^ o- ,,, 



t^cizk;- 
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'" r> - t• 


"bo 

1 1 


bc^-c. 




^ f^ -;— . 

szs 


be:: 
40 






„'^ .-- -.^ 


^jc:- 






^ ---y 






Jsp 


•i •::-r 






jsp 


2rr 






Id:: 


"b c c 



bc3;f 



be :'t ; 



law 


.,?,.,.. 
^ 


and 


bcc 


C^ *"7 O 
i,^ ^.j i.^ 


* 


Jsp 
Isp 


"bkc 


l&VF 


bey 
i 10 


de.c 


bl:c 


lavr 


-i. 


"dd 


■f*^t-v^ 


5 pa 
add 


(20C00 


dac 


fpr 


jsp 


im 
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,.^ .-• ^ T .• ^ O -» 

/■Vol * o b. -1 



C w J 

fpr^ 



ICOOO 



niul -""US 



s ts.f t 



ST^acewar hA 5/^:'-/63 ^' 



;-; r,t >-^ ■ 1 ""> c? 



/tK£lii control, routine for f.r. 

nob=30 /tcte.l nur^ber- of ool?f.iinc ob^ectc 

inlO, setup Etc, 5C0C /doloy for loop 

Init mil:, '"-t^ .'^loc of cc.lc routines 

add (not! 






ds.o rh^!- 



/ ., 



rml^mtb nob 

add (nob 
dap rnyl 

nyl-n::l nob 

add (nob 



na'!=nyl nob 

add (nob 

dap abl / count cf ' nstnuct:'ons tr/'en by calc rot;it:^ 

nbl=nal nob 

add fnob 

dac mdr / d" 

ndx=nbl nob 

add (jioh 

dac iTidy / dy 

ndy^ndx nob 

cidd (nob 

dap Kon /c.ngular -velocity 

nom-ndy nob 

add (2 

dap mth / angle 

nth'=--nDm 2 

add _(2 

dac iTifu /fuel 

nfu=nth 2 

add _(2 

d S C '^"P "h -^ ' ■■"■' -O ■^" n ""^T". ^ -io^" *:; '" >■"■ -" yy -" 

ntr=nfu 2 

add (2 

dap not / outline of spaceshlui 

add (2 

dap mco / old control :''ond 

nco=not 2 

•■■■•-'•- ^~ 

dac H'ihl 
nhl=nco 2 

add (2. 

nh2=nhl 2 

p df' '' ? 

dac mh3 
nh3-nh2 2 

add (2 



ne 



SZi 


XI 


-tm-n 


/!. 


u ■■■*-:" 


* t 


lax-i 


dj5 


J, J. r> 


'1 


jr:p 




IBM 


;^:5 


elf 


4 


dap 


i 


lac 


5 


dac 


dbl 


Idx 


.-2 


T^f 


.."^ 



dac dbS 



ndlj 



law 
xor 

f^ T o 

Jmp 
law 
xor 
sza 

law 

add 
spa 
Jnp 
law 
add 
spa 
jinp 
::ct 

dB. c 
jnip 



S S X 

mtb 

mdn 
ss2 



mdn 
1 

y^ 4- .y-j 

mdl 



'rndn 

tlf 

Is 

ntd 

mil 



/ 1 6 B t 



l-^/^-i- 



sh'ps out of torps 



/ ->P.< 



't delay :s 2X torpedo life 



mdn. 



dM, 
dj6. 



count ntd ^ nil 
stf 1 
stf 2 

law ssl 
xor mtb 
sza 
elf i 

P.'Z.ri. 1 
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.'■- U i 
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1^ Xj O. 

elf 

"> r! ^" 

nl -P 



;s2 

itb 



2r, c 








4oc 
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» -1 


lavj 


mg2 






dac 


cwg 






jjnp 


a 




pAO, 


lavj 
dac 


cwr 
cwg 


/ here 




jmp 


a 6 




i^;C, 







/scores 


mo. 








%. 


lac 

sma 


get 








b3 





a5i 



a^. 



a6. 



a2,. 



/ ■^- o C -f- T-r'^."v^r"J i^ /~\ r^ 4- "i-o ("N 1 



O '^ ^ -v-)-?- 



count £ct^ a 5 

lac Isc 

sas 2sc 

iTiD a4 

lac flu 

sad (jmp 4 

Jinp a 4 



law 


11 


dac 


get 


lat 




and 


(40 


sza 


-" 


jmp 


a2 


jrnp 


f ;! i 


lat 




and 


(4o 


sza 




j-P 


a2 


d';^m 


isc 


dzn 


2s c 


lat 




rar 


6s 


and 


(37 


sza 




C'TiS. 




dac 


get 


clear r^.fb, • 


law 


ssl 


dac 


mtb 


lav? 


ss2 


dac 


ntb 1 


lac 


(2C0C0C 


dac 


nrci 


A pi r* 


,^ « - ■^ 


cms. 




d a c 


:^:i 1 


dac 


nyl 1 


lac 


(144420 


dac 


nth 



mn-1 



/ clear out all ts.bles 



a3ji 



lav; 


nnn 


dac 


not 


11 o 


ddd 


spi 


1 


Jmr) 


a3 


Jda 


oc 


otl 




(is. c 


not 1 


daD 


fll 


jda 


oc 


ot2 




dap 


fl2 


xct 


tno 


dac 


ntr 


dac 


ntr 1 


lac 


foo 


dac 


TifV. 


dac 


nfu+1 


law 


2000 


dac 


nbl 


dac 


nbl 1 


xct 


nhs 


dac 


nh2 


dac 


nh2 1 


Jmp 


mlO 



o i" P 



^Ot 



V "-.J fc A i J ._.. „- -^ S^ i. J, ■; 



/ cotrol word get 
rogi, dap no3 

lot 11 



mg3* 






"'"1 r »!-s 



dfi-t; iTii?"4 



lat 




sv/ap 


Jmp 


• 


id:: 


nth 


Idx 


tnfu 


idx 


rati' 


l d-T. 


race 


Idx 


KOt 


idx 


moni 


Idx 


mhl 


idx 


nh2 


idx 


Sh3 


Idx 


mh4 


idx 


rn-w -1 


idx 





idx mal 
Idx mbl 
1 dx nid"'-" 
idx radx 
mil;, lac . / 1st contxol vrord 

ssa i / zero if not active 

jcp mcl / net active 

dap . 1 

mMj lac j_ / alter count of mmbor of instructions 

add nitc 

mc,l, idx tr.ll 

sa.d (l8.c n:fb 1 
^^■X) Idl 

•sas (lac rnfo nob 
*ro ■■■ ds 
baclcground 

jsp bio >'' display rnaESi"e star 

count !7itc^ . / use up rest of time of main loop 

.Inrp r.lO / rooeat v;hole t-rorks 



col 



Ji-il^. w. • 



taxi. 



iifg. 



iaq2 J 



'■" +; I5 



/ C'Sn 



ds.t) cox 
law 1 
add nil 
sad. (lac 

dap rrj.? 

5^ ^ r5 ^ "^ i 

dap mx2 
law 1 
add rnyj. 
d.aT) iTr'"? 

add mai 
dap na2 
law 1 
add nbl 
dap n-'.b2 
lac . 

sub . 
spa. 
cna _ 
dac rati 
sub mei 
sma 
Jnp mq2 

sub . 

spa 
cma - 
sub iTiel 
sma 

Jrp rnc2 
add uitl. 
sub r.e2 
spa 

Jrnp coz 
idx rnx2 

-- '■'■■' - '^'.j '™' 

1 dx r.i?.2 

index T:12. ^lao, rT%b nob. '~]^ 

-* /-5 -v»* r* Q "v* 



/ 2Rd control vjord 
'ollld.e ? 
/ no 

/ calc if collision 
/ dslta X 
/ take abs val 



/ < EPS! I. ON ? 
/ no 



/ < ops lion ? 



/ no 



/ end of co'T.pc 



■'"". s on lo' 



e;l0t.. 



/routine to set explosion. 
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dac 
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lac 
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da.c 
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dac 


1 re 12 
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1 nbl 


mb2. 


add 

craa 
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Ss 




add 


(1 
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dac 


e 


ma2;, 


dac 
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/E"^PL0DE 

/ replace calc routine with sx"clcsion 

/ duration of explosr'on 



/ rr.lsc calculation routines 
/ sxo3 os'^ on 



msl 



rush;, 

mil. 



lac 
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sar 


3s 




add 


.1 m:cl 




dac 
lac 


i nrl 
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3 s 




add 


1 myl 




dac 


i myl 




law 


rast 
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msh 




lac 


i n:bl 




QX?. p. 


cli-oor 
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dac 
sub 


3s 

mxc 
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sma 






idx 


rash 
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ran 
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(scl 




dac 
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9s 




sir 


9s 




-:.ct 
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add 
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add' 


i mxl 


- 


^da 


kciD 
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cour: 


;t rxc ^ ~ 
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.t i ma ■ , 


nihl 
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-■"r 
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/ tlrr.e involved 



/ toyoGdo ca. Ic ''"'o'lJt"' ""^g 

tcr> jsp col 

jinp se?:-3 

count "^ tiial . t;c' 

Is.c {tr.ex 400000 

dac i rail 

law i 2 

dac 1 mal 

lax^r 20 

dac i mbl 

JT-.r) mbl 



lac 


i mx 1 


sar 


9s"" ' 


xct 


the 


add 
dac 


^ ndy 

1 ndy 


sar 


3s 


add 


1 -r-^'l 


dac 


-1 '^iri 


sa.r 


9s""' """ 



a d H "^ '''^ d IF' 

ds c 1 rnd.x 

sar 3s 

add ':.. n>'l 

dac i mxl 

dls-ot 1, 1 myl, 1 

.v'l'O mbl 

/ hyperspace routines 

/ this routine hardies a non— co"'. I'd" ■'>'r r;h-"D '' n"? b1 "b"!' 
/ in hyperspace 

hpl> count 1 mal^ mbl 

/ next steri 



count 1 mal 


l.avj 


hp3 


dac 


1 r,l 1 


law 


^ 


dac 


f ribl 


ra.nc 


1 r^r^ 


s C*^ 


^9s' 


s "! r 


9s 


xct 


hrl 


add 


i mxl 


dac 


i mxl 


sw^.r) 


add" 


:, -yl 


da G 


1 iryl 


dzrn 


■^ rndx 


d zn 


1 ndy 


-ct 


h'^2 


dac 


1 '^p/1 


l-ip 


mbl 



/ this 


ro 


■1*- ' v> 


handles ? 


/ hypersp 


H-ce. 




hp3. 




Jsp 


col 






JT^P 


sex 






count i !T:alJip6 






law 


2000 






dac 


:•, rabi 






lac 


1 !Tlh4 






add 


liiir 






dec 


1 ~Y>A 






random 






lor 


f 400000 






add 


;•, ~hh 






sma 








Jpp 
lac 


pol 






da.c 


1 mil 






lac 


ran 






scr 


95 






sir 


9s 






xct 


hr2 


''i,v'y 




da.c 


i mdy 



ship bre' 



Q-' 



hp4. 



to?, 

hp6^ 



die 1 rxix 
setup hpt; 
lac ran 
ss.r 6s 



motn 



ith 



(3llo4o 



dac 

ds, c 

lac 

sma 

sub 

spa 

add (^-llO-'-l-O 

dac :"' T.th 

count hpt , hp4 

count 1^ nh2^h 

dzr. i rnh2 

-ct hd^ 

dac t Si3 

lac 1 rrizi 

dlspt 1 1 n-^y 

-?v•.-,5-^ -,V,1 



■f i 



kcb 





d B. '^ t '- (-> 1 
la c Ic cb 



/•p^i ocs to '^or con'^^'5^ d"'^ i^t^ipt- 



suo n::l 
sws-p 
sub nj'"! 

J:T:p Vcl 

-^ i . ■„ . ^ 

c!, U lO in- r 1 



l-ri 



/ spaceship calc 
SSl^ Jsp 1 ewe: 



as 2, 



si? %^tAif j! 



mort. 



mthj, 



dlo sew 



jsp 


1 cwp 


T»j_r» 


4s 


dlo 


sew 


elf 


6 


-jSP 


col 


Jwp 


sex 


llo 


sew 


elf 


6 cla-c 


spl 




add 


ma a 


rll 


Is 


spl 




sub 


ma a 


add 


• 


dac 


1 mom 


Bza 


10 


Jmp 


. 3 


dztn 


1 mom 


ral 


7s 


rll 


Is 


spl 




stf 


6 __ 


llo 


1 mfu 


spl 


-i 


elf 


6 


add 


* 


sraa 




sub 


(311040 


spa 




add 


(3lio4o 


dac 


1 mth 


jda 


_sln 


dac 


sn 


dZlB 


^x 


dzra 


by 


szs 


60 


jmp 


bsg 


lac 


1 mxl 


dac 


^1 


raul 


tl 


scr 


Is 


dac 


acx 


cla 




scr 


2s 


dlo 


lox 


lac 


1 myl 


dac 


n 


mul 


Fl 


scr 


is 


dac 


acy 



ODr /update an^'le 



cla 

scr 2s 
swap_ 
add lox 
swap 
scl 2s 
add acx 
add acy 
sub str 
sma 1 sza-skp 
Jmp pof 
add str 
varsft 
dac ri 
jda sqt 
mul tl 
undosft 
scr 9s 
scr 8s 
sza 

jmp "bsg 
scr Is 
dlo Fl 

Integrate mxi, Fx 
integrate myl, by 
bsg, lac 1 mth 
J da c_os 
dac Gs 
sar 9s 
xct sac 
szf 1 6 
cla _ 
add bjr 

dlffjndy, myi, (sar 3s 
lac sn 
sar 9s 
xct sac 
cma 

szf 1 6 
cla _ 
add bx 

diff indXj mxl^_(sar 3s 
scale srij 5s, s_sn 
scale cs , 5s, sen 
lac 1 mxl 
szf 4 
sub nxl 
szf 1 4 
sub nxl 1 
sub s_sn 
dac £xl 
sub s_sn 
dac stx 





lac 


i myi 














szf 


4 














sub 


nyl 














szf 


i 4 














sub 


nyl 1 














add 


sen 














dac 


syl 














add 


sen 














dac 


sty 














scale sn^ 


9s, 


ssn 










scale OS ^ 


Oo 


sen 










dac 


s_cra 














lac 


s_sn 














dac 


s_stn 














add 


s_cn 














dac 


s_sc 














dac 


£Sd 














lac 


s_sn 














?.ub 


s_cn 














dac 


csn 














cma 
















dac 


c"srn 














cla 


cli-o- 


"r 












Ida 


kcb 














xct 


db2 












rnot,sp5, 


jn;p 


1- * 












sq6. 


ioh 
lio 
ril 


s"cw 
2s 














spi 


i. 










tlXL 




Jnp 








/ 


no tail 






ranct sar 


Oc7 


S-T 


^'s. 


s vc. 






seal 


.e sjij 


p.. 


S ^' o 










O f^P "^ 


A f^ "^v 


o_ 


r« (^ v^ 










O v'C-. -i 


-'•' -"■•> J 


vjo , 


*^ ^w^ , - 








sit. 


count i iTifu, st2 










dzm 


1 mfu 














Jrnp 


SCO 













st2_, 

RflQ 

IRCO ., 






srS-j 



ss3. 



ss4. 



7.:..ncr s::^^ ^^ri;! ; 
llo syl 
xct dbl 
count srCjSqY 
count 1 aal^ sr5 



^■^ r^ ... 


1 iCa 


lac 


4 


cma 
szs 


1 30 


clc 






S C^.'^ 


ral 


3s" 


sma 




J flip 


sr5 


cour 




* i' ' -^, 


n -vTi r^ 



/ checl: if torp tube reloado'^ 
/ pre'/ent count around 
oontrol vford 



/ 



,/ pi^esent contro'' 



i/ord 



■ f^'-^T^ rTv '"^ -*-v 



1 o — -■, ^iU 



t to bit 






/ Che 






sza 1 
JTup s:?2 

p. f^ r^ p Y>'] 
d.S.D S f'^ 

sas (la 
X a c ' t c T 

."^ ;|D Oi -* c* ""-^ 'I 

lavr nob 
3 r^ 'i q >-^-^ 

*^— '—I v^ I-* i. ,,4_ 

rip Tl a a '^ 

lio Ft" 
swp 

add nxl 
szf i 4 
add n-cl 1 
swp 
dio . 
add (nob 
dap _ss4 
1 :i o s ty 
swp 
szf 4 
add nyi 
szf i 4 
add nyl 1 

d -^ n 



to nob-1 



ilc if tor'pedcs exhausted 
,''pra'-ont count around 

/ssar-ch for unused objec 
u n u s ^ d 






\ O ^ """.P '^ 



- or CBVj cb ir^-f'^'^ 
t^ ^ ■-' '„-■ .y >..> 

torpedo calc 



p /] ri ( r-,ry.'^'\ 

acl,d (nob 
dap sr7 
s.'id (nob 
da.p sr3 
3-dd (nob 
dap s_r4 
lac sn 
ret tvl 
cma 

add 1 Ddx 
sr3j dac ^ 
a:;,;':* ■ lac cs 
■?"" xct tvl_ 

add 1 nidy 
„i|#,; . da; 



:r.ct rlt 

dac i rne.l. / pernlt torp tubes 

ct tlf / life of torpedo 



S:t6^ dac . 

lac (lac rntlD nob-1 



SI'i. 

sal 3" 



add (30 

S::p'7» • dap . / length of tcrp caTc. 



sr5i lac sew 

d^ac i r.-. CO 



count 3_ nih3^ '.■"b; 

dry v-r\ -^ i^i T-T: "^ 

lac 1 n?a2 

SZ8 1 

jinp rnbl 

lac scx'J 

and (6CC000 

xor (60C000 

sza 

Jop rnbl 

lac 1 n_ll 

dac 1 ™hl 

lac fhC ''-OOOCO 

dac 1 mil 

xet hd.l 

dac 1 niai 

law 2 

jap tr:bl 



/ 



her; 



5.11 a. J. 



po 



)0 



spaces 


h:..p :,.n star 


1 ^ 


dzn; 


i rzdx 




dzm 


i ~6^ 




szs 


50 




lac 


DOl 

(377777 




dac 


i nxl 




dac 


i myl 




lac 
dac 
coiir 


!_ mbl 
ssn 
it s s n ^ . 




ji-p 






lac 


(mcx •''■OCCC 




dac 


i "all 




lavr 


i 10 




dac 


1 mal 






rabl 



/ ouullncs of spaceships 



o&x ^ 



^ ' 5/ 



5/ 



111'' "^1 

/^ A -^ A ^, A 

11 -"163 
311111 
146111 
111114 
700000 



01311 3 
11^,1" 1 
116313 
1311-M 
161151 

11163,3 
36511ft 
700000 



•'variables 
consta,nts 



.1^0/ 



P. 



100/ 



;"a,c9 



'-\ ■^■-o r^ 



etches 



/ 



diapla.y 



;or*e rou 



X o- w ^ 



/sot s: 



of 



p T*, ,C= /-> C\ r? '7 



fll. 



fkr^ 



X X w _j, , 



fus^ 



(3g_-t-) 


fsl 


lac 
dac 
dac 
dac 
dac 
da.c 


fS3 

sc:n 

S_SG 

_ssd 
sen 

csrn 


cine. 
da, c 
dzrn 
dzrn 


Fsn 
s_sri 

s sn 


Jir;p 


« 


lax*' 


• 


s ub 


c2l 


dac 


t6 


law 


(» 


SUlD 


c'^1 


dac 




lac 


c23 


dac 


t4 


szf 




-J 


llo 


2sc 


szf 


- "5 


lio 


Isc 


scl 


is 


elf. 




div 


cl2 


hit 




sza. 




dlo 


t3 


law 


400 


jda 


fss 


law 


fys 


daD 


frt 


;ldx 




cma 




dac 


t3 


la^^; 


fus 


da-p 


1 t6 


lac 


i t? 
c2C 


szf 


"3 


C!T;a 




6.S. c 
lac 


s;^l 
t4 


add 




dac 


t4 


dac 


sxl 



/ a <p>.^ -v^r-s'|-n-! -lo•<'^ 



n- 1 prl 



/r 



ds^ 



X X M > 



fub^ 









O ^-i j. 


J 


law 


not 


szf 




law 


net 


dap 


fug 




t5 


ral 


9s 


cli 





/f^ 



•ct db2 



law 
jda 
law 
dap 

lac 
dac 



J.. Ct, C 



4000 
fss 
futt 
1 t6 

~ 4-7 

c26 
sxl 
c26 
1 3 



syl 

ts" 

fds 



: it 



szf 
craa 
add 
dac 
la VI 
dac 

szf 3 
jr<^fp • 3 

jrnp . 2 

elf 3 

ell 

lot 

dlo 

law 

xor 

sza 

Jmp 

law 

xor 

O ^ C- 

law 
jmp 
la%»f 

daiD 
add 

r\ g> r^ 

:•. sp 



11 

*./ .^ 

21 

1 

f 1 1r 
k2 ^ 

''.J X 

a4+ 

fwt-1 
h 



Ju"/^ 

Fl 





dio 


\3 -i. 




dec 


t-^. 




la%\' 


f:T2 




dap 


X. .i- -v 




law 


1100 




J da 


fss 




•f -m^ 

U '''V' 


fit 


fx2. 


lio 


tl 




jmp 


-^Vr» 


flcs. 


szf 






jmp 


fis 




szf 


4 




jmp 


, 4 




ls,w 


dj6 




stf 


k 




Jrnp 


■I : 




le.w 


dj5 




elf 


4 




dap 


, 1 




lac 


* 




dac 


dbl 




idx 


.-2 




1^ r-V ^ 


o 




-'vC o 


- ~o 




dac 


db2 




jmp 


fis 


CIS, 


12 




Cg0„ 


200000 


oga.. 


21 




^s» 


-200000-30000 


Ol^f 


-260000 


:^©; 


30000 


ts* 







Wn^ 







t5. 







«€^ 







^trs 








'd%h), / tatle of objects and their properties 

Start h 



spacewer 


h.li 


5/17/6Z 


dc!p 


: pt 1 - 


- pass 


1 


g.pacewar 


hM 


5/21/63 


ddp 


: pt 2 - 


- pass 


1 


stars by 


prs 


for sA^ 


£b - 


pass 1 






foo 














ra:l=iiitb nob 












nj-±==nxl nob 












start 














fm - pass 1 












spacewar 


I... 4 


5/17/63 


ddp 


J pt 1 - 


- pass 


c'. 


spaeewar 


2|.,4 


5/21/63 


ddp 


: pt 2 - 


- pass 




um 


1362 


a+13 


c ount 


11 




Btars by 


prs 
5.4 1 


for s/w 


2b - 


pass 2 






apacewar 


syias 5/23/63 


! Jctn 






Constants area^ 5.ncltit; 


i ive 








from 


to 












2T36 


.3063 













Ij 6077 

Ira . 706 

Iq 6117 

isc 13^5 

2J 6121 

2m 764 

2q 6l4l 

2sc 13^6 

3j- 6l43 

3m 1042 

3q 6403 

4J. 6405 

4a'- ■ 1120 

4c 7747 

a 1347 

al 1337 

a2 l405 

a3 1436 

aft 1370 

a4o 1342 

aS- 1364 

a6 1377 

acx 2727 

acy 2731 

bcl 667 

bcS 673 

bee 1176 

bck 656 

"bcx 705 

"be/ 704 

lads 544 

'ojl 530 

^.^m 543 

tjq 537 

bkc 1177 

blp 464 

blx 511 

bpt 512 

bpx 645 

bsg 2275 

bx 2704 

■■'b''- 2705 

cl2 3407 

c£l 3411 

c23 3412 

c26 3413 

ego 3410 

c30 34i4 

col 153^ 

cos 100 

COX l6l4 

cs 2732 

csm 2676 

csn 2701 



CSX 


145 


cw'z 


2720 


cwr 


4o 


dbi 


1331 


dbg 


1332 


ddd 


20 


dJS 


1333 


d36 


1335 


fds 


3272 


fil 


3225 


fl2 


3230 


fid 


24 


fie 


16 


fik 


3347 


fin 


7 


fis 


3233 


flu 


3355 


fkg 


3367 


fkr 


3247 


flo 


55 


flp 


45 


fit 


3254 


foo 


12 


fou 


15 


fpo' 


54 


fpr 


1200 


frr 


14 


frt 


3305 


Cs 


4 


fsl 


3224 


fss 


3210 


fub 


3325 


fuc 


3304 


"us 


3262 


fuu . 


34 


x^wt 


3351 


fx 


35 


fxl 


3356 


fx2 


3365 


"yn 


20 


fys 


3306 


set 


2721 


S3^V 


32 


hdl 


23 


hd? 


24 


iid3 


25 


hpl 


1744 


^--^P?. 


1775 


hr.^ 


2036 


hp6 


2053 


hp7 


2051 


hpt 


2724 


hrl 


26 


•hrg 


27 



hur 


30 


idl 


147? 


ids 


1504 


lox 


2730 


kci 


2102 


kcb 


2060 


iral 


1630 


ma£ 


1631 


ma a 


13 


ir.bl 


1517 


mb2 


1624 


nco 


2451 


mdl 


1303 


mdn 


1307 


mdx 


2707 


mdi 


2710 


mel 


16 


me? 


17 


mex 


1632 


refu 


2711 


nibi 


l46o 


mg'? 


1465 


"'^£•.3 


1464 


m£;4 


1471 


mhl 


?713 


mhf 


2714 


ish3 


2715 


mh4 


2716 


ffihs 


r^ - 

c 


mil 


1667 


mil 


151? 


ml£ 


1556 


mlO 


l&Ol 


mora 


Fl?3 


laot 


2402 


mql 


1522 


mq2 


1604 


rash 


1666 


mst 


1704 


mtl 


2722 


mtb 


3422 


mtc 


2706 


mth 


£137 


mtr 


2712 


BlXl 


1561 


nix? 


1562 


mxc 


2723 


layl 


1571 


rcy2 


1572 


1112:1 


1653 


nal 


3532 


nbl 


356£ 


nco 


3704 


ndx 


3612 



ndy 


3642 


nfu 


3676 


nhl 


3706 


nhg 


3710 


nh3 


3712 


nm 


3714 


nnn 


3716 


nolD 


30 


nom 


3672 


not 


3702 


ntd 


2717 


nth 


3674 


ntr 


3700 


nxl 


3452 


nyl 


3502 


oc 


2?6 


ocl 


373 


oc2 


4l6 


oc3 


424 


oc4 


432 
44o 


oe5 


OCD 


446 


oc9 


456 


occ 


2672 


ocd 


407 


oce 


4oo 


ocg 


?50 


och 


251 


oci 


2673 


ocl 


246" 


ock 


237 


ocir. 


371 


ocr 


37? 


oco 


26^ 


ocp 


264 


ocq 


263 


ocr 


265 


ocs 


222 


OCX 


370 


ocz 


223 


otl 


2630 


otS 


2645 


p 


3110 


pol 


2623 


pof 


2607 


ran 


31 


rlt 


10 


sac 


14 


sbf 


61 


scl 


2111 


scm 


2674 


sen 


2663 


sew 


2725 


sex 


1620 



sft 


66 


sll 


lis 


Bl2 


l47 


si3 


117 


slri 


106 


an 


2726 


sp5 


2402 


sql 


220 


Bq2 


221 


sq3 


171 


sq6 


2403 


ml 


2430 


8# 


2446 


Sit. 


162 


dqx 


174 


srl 


2467 


arS 


2500 


sr3 


2543 


sr4 


2547 


sr5 


2561 


s'ri6 


2553 


S-I»? 


2560 


$rc 


2735 


srO 


2111 


ssl 


2103 


bb2 


2106 


ss3 


2514 


se4 


2526 


SBa 


270? 


ssc 


2700 


ssa 


2677 


sei 


2703 


SSM 


2675 


ssn 


2662 


stl 


2465 


st£ 


2434 


str 


15 


stx 


2733 


sty 


2734 


sxl 


2670 


syl 


2671 


tl 


2665 


t2 


2666 


^^3 


3415 


t4 


34l6 


t5 


3417 


t6 


3420 


t? 


3421 


tcl 


1721 


tcr 


1706 


the 


21 


tlf 


11 


tno 


6 


tvl 


7 



ve 


^ 


xys 


2664 


xyt 


2667 



3 pace war 


ij.o 


5/17/^3 


3/ 




Gbf 



/ ignore ge- . brea]'^ 



t03 



.on 



^'■r f'l / v,ce tast word for control, not lot 11 co 

/ interesting and often chr.ng-ed constants 

/syr;:b loc usual value (all instructions arc executf;d . 
/ and r.ay be rend aced hv -'dp or "'^,---.1 

tnO;, 6^ lav; 1 4l ^z number c 

tvl^ 7^ sar 4s / torn-edc \felocity 

rlt, 10, law 1 20 / tornedo reload t-'-~e 

tlf, 11, law i l40 / toroedo life 

foo^ X2j -20C00 / fuel supply 

maa, 13^ 10 / spaceship £ni£ul3.r accclerat 

sac, 14^ sar 4s / snaceshio acceleration"'" 

str, 15, ICO / star capture radius" 

mel, l5, 6000 / collision "rad-'us" 

me2, 17, 300c / above/2 

ddd, 20, -0 / to save space for ddt 

the, 21, sar 9s / airount of torpedo snace x\Taroage 

mhs, 22, Icaw i 10 / nurr.ber of hyperspace shots 

hdl, 23, lavr 1 40 / tine in hyperspace before breakout 

hd2, 24, lo.w 1 100 / time in hyperspace breakout 

hd3, 25, law 1 200 / titr.e to recharge hyperfield generators 

nr_^, dc ^ scl ys / scale on hyperspatial displacement 

hr2, 27, scl ^is / scale on hynersost-'a] ly ■' nduc^'-''. -.'c^t r^Q-^ t^r 

hur, 30, 40000 / hyperspatial uncertancy '^ '""' 

ran, 31, / randoni nunber 

gr'v, 32, sar 6s / gravitational constant 

/ place to build a private control word routine. 

/ it should leave the control vTord in the io as follows. 

/ high order 4 bits, :-otate cow, rotate cw, (both nean~'hvT^^rs->?'c^) 

/ fire rochet, and fire torpedo. Low order 4 bits, sarne ^nr> 

/ othe".'-' ship. Routine is entered b'-'' -'se evrr, ' '* 



40/ 

Gwr, vrnp --1 

. 20/ / space 



/ nor!T:ally lot 11 control 



/ routine to flush serusnce b:?eakeH, 

sbf, tyi 

lio 2 
lac 
Ism 
"'mri 1 1 

define 
xLncT X,Y,INS 

lac Y 
II~'3S ssn 
dac Y 
lac X 
INS sen 
dac X 
terni 



occur 



define 



ylncr X//,INS 



dispatch 



lac Y 

II^IS son 

dac Y 

lac X _ 

-IMS+add+sub ssn 

dac X 

te'nr.lna.te 

define 

add ( . 3 

dap , 1 
jmp . 

term 



define 
dlspt A,Y,B 

repeat 6 3=B-fB 

lio Y 

szs 20 

J da l-ccb 

dpy~A-i-E 

term 



.ne 



scale A,B,C 

lac A 
sar B 

4- f^Y^Y'^ 



def ''.ne 

add 1 V 
dac 1 V 
xct SF 
add 1 S 
dac 1 S 



define 



'andom 





lac 


ran 




rar 


Is 




xor 


(355670 
(35567c 




add 




dac 


ran 




tera 


! 




define 


ranct 








rand 


i /^r^ 

■. k^ . . - 




S 






SS 






srna 






cr.a 






dac 


C 




tenr 


inate 



define 



v2 . 



define 



define 



vars_ft 



xys 
xys 



dac 

Idx 

la.s 

scr 2s 

dac tl 

sza 

j::;p v2+R 

scr 2s 

swap 

terminate 

undosft 
dac tl 
dio r2 
lac xys 
add sft 
dap ,4-i 

dac .+6 
dac .+6 
xor _(_10000 
dac xyt 
lac tl 
dio t2 
scr . 
scr . 
terminate 



/ change scr to scl or scl t; 



icr. 



"S.t e 



9s 

Is 

T"-| 



1 nt e 

ell 

lac 

scr 

scr 

di"*'' 

hit 

crra+_cli-opr 

Xrtf- y-t'-+- 

xct grv 
dac B 

t e XT"- ^- '^B ^ ^ 



A ,P. 



Sft 



lac . ~' 
scr 7s 



scr 


bs 


scr 


^>p 


scr 


4s 


scr 


3s 


scr 


2s 


scr 


Is 


o r> -^ 





;cl 



/sine-cosine subroutine » A '?ar::s associates 
/calling sequence^ number in ACj, jda a -in or Idacos . 
/argunent is between +2 pi. with binary point to riight of b' 
/answer has binary point to right of bit' 0. Time == 2.35~? r 
/changed for auto-multiply , ddp 1/19/63 



cos 



s J- i 1 _J 



313. 



G o --'■-. ^ 



>J — i^ ^ 



* c; -v 





dap a 
lac (6221c 
add cos 
dac sin 



'tr^'5^ 
J"'.^' 


.+4 







dap 


csx 


lac 


sin 


spa 
add 


(3ilo4o 


sub 


(62210 


ST.a 




jrnp 
add 


si2 
(62210 


rnul 


2 s 
(242763 


d3.c 


sin 


I"Ul 


sin 


dac 
i7:ul 
add 


cos 

(756103 
(121312 


rnul 


cos 


add 


(532511 


rnul 
add 


COS 

( 144417 


iriul 


sin 


scl 


3s 


dac 


cos 


xor 


sin 


sna 




jnp 


csx-l 


lac 
lie 


(377777 

sin 


sp;' 




crna 




jmp 


CSX 



lac cos 



cria 
add 


(62210 


sma. 




Jr::p 
p, (3 c! 


si3 
(6221c 


S?P 

Jnp 
sub 


(62210 
si3 



sub ^62210 



/i nt e ge r s o u are r o o t 

/input in ac, blnarv point to i'if-"t c" b't "^7, "Jria s'-t 

/answer In ac with binary Doin^ 

/largest input nurr.ber - 177777 

s qt , 





jda 


between bits 8 


and 





dai^ 


nox 




law 


-5 "p^ 




da c 


scl 




dzni 


sq2 




lie 


sot 




dzr. 


sat 


sq3. 


iSD 


sol 




J-P 


.+3 




lac 


sq2 


sqx. 


jtnp 


• 




lac 


so2 




sal 


is 




dac 


sc2 




lac 


sot 




rcl 


2 s 




sza 


i 




-? n-^ -r-> 


sq3 




dac 


sqt 




lac 


s c2 




sal 


Is 




add 


(1 




sub 


c» p -f- 




sma+sza-g 






sq3 




spa 






cnia 






dac 


sqt 




idx 


sq2 




jnip 


?^q3 


sql. 







sq2. 








siq; 



,/ou 1 1 1 n-" c ornp ' 1 e r 

/a c -where to corr.pile to. cell 

/ot^"ddyens c^ outl'/ne table 



nr^n ^j-. 



define 



define 



piTnst A 
lac A 
dac i oc 
idx oc 
teriT.lnate 



corrita"'o Aj B 
pllnst A 
Jsp ocs 
lac B 
Jnp oce 
terminate 

ocs^ dap ocz /puts in swap 

d 1 O 1 O ''' 

idx oc 

die i oc 
Idy: oc 
oc!Z;, jrnp . 

Q^> *-* /outline coTri.piler proper 

dap OCX 

lac i OCX 

dap ocg 

plinst (stf 5 

dap ocm 

Idx OCX 
ock; plinst (lac s_xi 

pllnst (llo syi 

elf 6 __ 

occ,6 

/outline table 



OCJ, 


setuD occj, 


OGIJa J 


llo 


m * 


och^ 


cla 






rcl 

dio 


Is 

oci 




llo 


(rcl 9 




dispatch 




opr 






jmp 


ocl 


oco. 


jrnp 


oc2 


oco^ 


Imp 


cc3 


ocp, . 


jmp 


oc4 


ocr^ 


Jmp 


oc5 






oc6 



pl:'nst 
add (4 
dap ocn 
plinst 

pliTiSt 

plinst 
plinat 
plinst 
plinst 
plf ns t 
pl'nst 

plinst 
pl-'nst 
plinst 
plinst 
plinst 
plinst 



' e* -7 f 



/'"' P Q (5 f' ■■ 



ocn 
dac 
dio 

JPD 
Clf 

lac 

cm a 
dac 
(lac 
craa 
dac 

\3 ^ 

11 

dec 

(d^ c 



syl 



g 


sn 


1 


sr. 


c 


"sii 


_s 


"sd 


s 


sd 


n t^r^ 



OCXj 



plinst flac s_sc 

plinst llio c_sn 

plinst fdac c_sn 

plinst (dio ssc 

plinst ocrr: 



ocin , 
ocn , 



irnn 



or-l 

W V^ -»- ^ 



oce 



o cA 



)linst (add 



jsp ocs 
lac (sub 


sen 


ciac :' oc 




idx. cc 




jsp ocs 




plinst (:' 


-Oh 


lac (d:'oy- 


-4ooo 


rlp r> ~ r->/-> 





n n.. ^ 


:. oc 




idx 


£C 




l:o 


^"-_ 




cour 


S t Dec 


J 


idx 


ocG 




jr-p 


oc:: 





oca 



oc2^. 
oc3j 






iomtao 



( s.d'' 



C* pyv; 



or.tab (add s_sc. 



corr.za o ^suD 

C O^*^' ^- Co * ?^ H (^ 

sz f 6 

.''■'T'C OC^ 
J, J_ J^ (J; 

i -■ i - K> U 

1 : 



( r"! i o 



B C *^ ^ ^ 



(sub s 



srn 
'sx 












j:^ f- o >->-p 

acid, fe 

SWc.p 

add By 

1 oh 

terralnc.te 

blpj dap blx /jr 

szs 60 
^r-p blx 
panel OKI 

and (4C0700 

E5D8. 

:cor (377777 

dac b7c 

lac ran 

ral 4 s 

and (^00700 

spa 

^or 1377777 

da.c by 

JSP bnt 



cm a 

.„■ c, j_ ^,. d 

add i'bdr, 
dap bjr; 

ClS Cl'.'_ Cl'^ '^_(-5-.--^_.QT-,-lo 

szf : 20 "■'"' 

*r"0 b ■'!' —1 

sub nJ'i. 
dpy--4000 

^ r^ ^ ^ 

C! T>Tp -r-v 



HI ql ■' p T , O 





c^a-n 


f:'+?: 






^If 








7 B. c. 


flc+R 






dap 


fr)0+^ 




fs. 


dST) 


flm-H 






dat; 


■f-ma--; 






• fl^r 


■Pl-J-Jj-P 




f in^ 


IcC 




,/iac :•■: 




sub 


fpr 


/•"^ ' jrr*''-*', -f- 




^ T!1c^ 








sub 


(2000^ 




"Hd 


(2000 




frr. 


soc 






fOU;, 


i?r:D 


fi,lU4-R 




^ie. 


sub 


( 1000 






sal 


Bn 




f yn ., 


lie 




/lie "^^ 




."1 t-» (^ 


Ori 






•-;■) ~r^ b 


t", V,' 






^ ■'■-*-■■ 


V:cb 






dDy- 


_l 






stf 


r* 




fid. 


±d.x 


fArn+R 






sad 


(i-^o ^ 


~-!-2 




irn"p 


■flD+R 






B 3 d 


fpo+R 






j'^P 


fx+R 






d c", T) 


^-*n+R 






id- 


•fynH-R 








flp,4.R 




fuu- 


szf 


^ 





-p_i-^Ti ri 



id:: flo+R 
"^'dx flo+R 

iaw J 
dr-c flo+R 
';t"0 f ■? d.+T? 



flp, lac (1^,0 J 

sad fpo+R 

jmp fx+R 

dap fin+R 

lav/ J+1 

dap fyn+R 

jr.;p fin+R 

fpO;, lie 

I J. O J u 



■ eiinc 



background 



jsp bek 



bck 



bci> 



bc3. 



ocy. 


bcx J, 


'■■•'■ J 


bCCj, 


bl:C; 


fpr^ 



::;.ap 


Dca 


szs 


40 


juip 


be:-: 


Jsp 

J3p 


J-fu 
bCC 


axid 


■\ -L 


O '-^ '■-■' 




Jsp 
lav/ 
and 


bCC 


sza 

^ i- 


E;-: 


Isp 


bl:c 


lav/ 


bey 


V-' fP, ^r 


bkc 


law 


^ -^ 


add 


•T'- ^ •-. 


spa 




add 


(2C( 


dac 
jsp 


Pa--' 



'J ^:> .a 



<--} p -' 



ICGOC 






star^t 



SPRf F's'/" '" ■''■ "" ^' -^ '■ '"' Z"^" 



nob=3' 



'ol routine 



,.j t- ij Ui- iJ u O ^ _; ■.... -..^ i_, 
' n ' •'- ■■■i<l 1 • f- ':•% 



nzl=rr;to roo 

add (nob 

—"* .;^ -f— .-- -^ 

nv 1 =n.x .1 r; o o 

c'p.'o rnal 

add (nob 

KX'a.\j Til Ox 






add {j-sih 

ndx^nbl nob 

add incb 

-' •••■-■■kj 

ndy^^nd:?: vicb 

add (nob 

dap r;0;V! 

nof:;=ndy neb 

ad-? ^2 



nth- no::: 2 



nfu=ntb 2 



Bdd (2. 



; s> ,-. r^ 



add {2. 









p ,-5 ,1 


(2 


not= 


. v^, "^ -.^ 


P 


p fl "^ 


cot 
(2 


nco= 




P 


add 


(2 



ni_-nc( 



ndd ^2 






/tot^ 



,/delny 
/lou c 



/ .., 



nu;i;ber o;r ccllidln« ol 



I or loop 






or 



i'l ■■' r\-^,-i 



/ count 



c o:, :ir;s'c:" 



.. -r.^- • ,-.,.. 



'-•0;-. ■^■T-tr ^p 1 ,-, y.,r\i . f- ■• ,., .. 



/ ^1-., 



/ i.,^ 



/?n£:uln; 
/ nngle 



■'velocity 



/ n 



no 



T f"'\":-''"'^^ f 



control vror'^ 



■--,V, ".....^1,;^'-! o 



n!i4=.nh3 2 



.,.., „T ^-t ^ r^ 
,^ ^:! ^n ,^ ^ 



id: 



'ndHj, 



tr* -^ <"? 

'*■" r""". "^ ■'^- T* '''"^ 't 

c" 'T' j:^ 

ls.w 1 / t 
Spa 

/^ /'■I V"^ '^'' T^ "^ 

r.- ii.-! d X i V -* -*» 

spa 1 

0--P ^•^^■■■"^ 

,*. V V U — ,L .-^ 

r^ ;rs f"* •■^t 'f' f^, 

1 S.W 3 S 1 

::or mtb 

5> Z ci 

C 1 f 1 
" Z. ^ 

ley isc 

_~ ,.-^ -^j -,- -^Ta 1 

C« 'T p ■' 

■ '■! — P p, Q 

c"^ ■'^ ? 



U'. ^ 






/ f 



pUo 



1 01,' .-.^.r- 

-^1 .^ ^> ^-t.T'' 
t> *•'*:■■ '■■■ ""^■" 



ISC;, 



V 

n 






,-1 ^ >-^ P •! O 
""^ '^ i:^ V- w 



'!>> 



U ■ " i- -•■• -^ 

lac Isc 
s s. s P B c 

(V " 'X ""'" ' 

law 1 1 
dac get- 
lat 
end (4o 



a4 



J, .;- 1, .!.„ 

lat 






w""*;^ .... ^. 

clzrn Isc 

rlzrn '^sc 
lat 

f'.ne (37 
s z a 

crna. _ 

r'p r> r ■ .-^ 'r 

r" 1 cs p -,-> ^ 1 f~ V, 

^ .^ r* 









01 



pT! ^?>i-,i 



a u .'. e s 



1 p. r% f "^ r- r^ r^ rs r^. 

da c n''c"L 

cia.c riyi 

cr^a 

w.a, c p "^ '^ '' 

da. c iT^?"! ^ 

lac (i^"M!-^l2C 

dec .ith 



8-3. 



lEVt 


nnn 


dac 


not 


lio 


cldd 




&3 




DC 


otl 






not 


dap 


X -J. 


jda 


DC 



>t2 



■■' 1 -. 



oi- 



dac 
dac 
lac 
da c 
ds.c 
law 
dt?' -'^ 
de.c 
xct 
dac 
dac 



tno 
nt r 

V~j J* Vl '1 

f 00 

nfu 

nfu-i-l 

2000 

nbl 

nbl 1 

mils 

nh2 i 

r^l o 



/ cont; 



■?^f /~j"^''-'i 



rr.gx i 


dap 


■g3 




' ^. i~ 


-^ '■* 




- O i,. 


a. 




--I ^, ^ 


Q.p, 




J " -•' 


-.^■C-. 


r> -*i 







^■' Kf- i 








/■■Ip r> 


4" i 




■ .i.C-. i.^ 


u -i_ 




lot 


i_1 1^ 




Jsp 


Sa"" 




n 






l:'o 


r--' 

w — 




■■^,■1 1 


he. 



■mz-o. 



mgS . 



idl. 



jmp 



Ids 






■■/-' '1 



dap 
lat 


rr;g4 


swap 




* 


idx 


mth 


idx 
idx 


nfu 
rntr 


Idx 


T.CO 


idx 


-ot 


idrc 
id;: 
idx 
idx 
idx 


rnor. 
mhl 
nih2 
nih3 


idx 


rnx 1 


idx 


n-1 


idx 


'Vial 


idx 
idx 
idx 


ribl 
ndy 
r.idx 


lac 


« 


ssa 


■ 


dap 


. 1 


^r;ip 
lac 
add 
dac 


mtc 
ate 


idx 


v-tT -1 



sad (lac i=:fb 1 

jrnp idl 

sa.s (lac nfb nob 

Jrnp ids 

baci:.ground 

covint 'nvtc. 



/ 1st control word 
/ :ser"o if not act:"'"= 

/ ■-^ r'^ i~ ^ n f" "^ " ^ o 



■ a 1 1 s r c '^^ r "^ 



r'urr:^)^!^ of '' F'Str''^*cti! o^s 



/ display massi-'e star 

/ use up rest cf tir.c of x 

/ repeat v.:hole vrorl--s 



in looi 



.% 





8ay 
Bax 


ld5c 


8a^: 


elf 


T 


spi 
stf 

c. " -f 


5 
6 


ril 


A 



88-2,% 



dao 



1<5! 



,r ds 



spi 
els. 




'^'s '': "'^ 


Is 


Spi 
lax*; 
clac 


2 

1 8s,y 



Sad, 



8j 



Dao 



Sac 



8aa 



;d 



jcp 


8a c 


■v^-"? V> 


Rr< 


X „„ J. 


^b 


spi 




ior 


[l\\ 


. . ..' . ip 


is 


spi 




■■ o r 


f 1 


\'--"r-: 


Oaa 


o • ■ • i-' 




cla 




TXV 


9s 


sp3 




la.w 


p 


jr.p 


Sad 


J, :, 


5s 


sp^ 




ior 


(1 


r i r 


Is 


c? v^ - 




>-■ f-^- 


(l-'l- 


ior 


rir 


is 


spi 


5 


ior 


(4 


sp ■ 


,<^ 


ior 


(ic 




~-->-' 7^ 


is 


-t ■-— -T 


c 


■;■> ' ... 




■' /^: -7-) 


Tin 




\ .'..^- 


spi 


6 


ior 


(h 


jrr:p 





COlj 



rl-p- 



CO?" 



Hi 2. 






rayl, 
rny2 , 



rnc2. 



cox . 



law 


1 


add 


r'{] -! 


sad 


■(lac 




cox-1 


dao 


ial2 


law 


X 


add 


"■^■yi 


dap 


mx2 


lav: 


y^ 


add 


rnvl 


r'aa 


-y2 


law 


1 


add 


trial 


dap 


na2 


law 


.1. 


add 


nibl 


da.T3 


Tnb2 


lac 


« 


spq 




jmp 


:zq2 


lac 


, 


sub 


. 


spa 




cna 




dac 




sub 


n:el 


sma 




jnip 


nc2 


lac 


» 


sub 


B 


spa 




cms. 




sub 


nel 


Brc.B. 




J^-P 


tr:q2 


add 


mtl 


sub 


-ie2 


spa 




jfnp 


cox 


^dx 


mx2 


idx 


my2 


"' j^ r.r- 


r.:a2 


Idy. 


rab2 


index ':il2 


Idx 


cox 


J nip 


» 



nit 



toij 



/ 2nd control word 
/ can It collide? 
/ no 
/ C8.1c j f collision 

/ talce abs ys.1 



/ < EPSILON ? 



/ < epslloj 
/ no 



/ end of conparison 



J op 



(la! 



/routine to S3t exclos:' en 





law 


20 




da.c 


i nibl * 




dac 


i rniD2 


sex^ 


lac 


(cer 400000 




dac 


1 rail 




dac 


1 nl2 




lac 


1 "1:1)1 


xpJo2 , 


add 


* 




sar 


Ss 




add 


(1 


mal. 


dac 


« 


ma 2 J 


dac 


• 



/ ir.isc calculation rcatlne 
/ explosion 



/SXPLODZ 

/ replace calc routine with expl 

/ duration of exolosicn 



OS ion 



mex. 


lac 


i T.dj'_ 




c« o -v^ 


^,«3 




L^^-Jv 


^b 




add 


i nixl 




dac 


1 rrxl 




lac 


i ily 




sar 


3s 




add 


2 myl 




dac 


i myl 




law 


rest 




dap 


rash 




lac 


i mbl 




cna 


cli-o^ 




sar 






dac 


mxG 




sub 


(i4o 




suia 






Idx 


rnsh 


razl. 


lac 


ran 




and 


(777 

(scl 




ior 




dac 


aill 




random 




scr 


93 




sir 


9s 


ir.sh^ 


xct 


g 


mil. 


hit 






add 


i Riyi 




swap 






add 


" mx!" 




C* T Q 

fcj £^ O 


20"""""" 




jda 


kcb 



j-.->-'.r„~ '^■C-O 

count ~cc, mzl 
count 1 rnal- mbl 



/ tliTie "' n'^ol'-^ed 



fi'7,'' 



-1 " 






scr 
s cr 



is 



/ torped-: 



'J i' "-' *™ 
•y-.'>-v-> CI £>. -V .„ "^ 

cour:t 






W O X ^ 



Ifftc (irex 40CC0n 

<5 S- C ' r"- "^ "^ 

3- aw 1 2 

dac 1 mal 

l£.w 20 

dae i tiloi 

jnp rnbl 

l8,c 1 r,?:.! 

xct the_ 

add 1 mdy 

dac 1 mdy 

sar 3s 

add ^. myl 

dac 1 myl 

sar 9s 

xct the_ 

add f mdx 

dac i ~Ar.. 

sar 3s 

add 1 :cnxl 

o!ac :l rn.Tl 
dlspt i, i myl, 

Jrr-p mill 



/ hyperspa.ce rout i nee 

/ this routine handles a non-ccllic'lng ship in'::' siblA' 

/ in l'},'^'"OOTSDS,C 6 



hpl. 



cot'.nt i mal, 
law hp3 
dac " nil 
law 7 

~^f> -inrl Q''Ti 

scr Ss 

a d d i p"* T 1 

dac i r.xl 
swap 

add i Tnyl 

/-I p (-t -1 r-* -^ r *^ 
.„.<.-, 1^ — i-v — 

dzrn i Tid:c 

r\ *^ vvi -- »^ /^ *^ T" 

xct hd2 

dac i mal 

J -i- "-'J — 



-;-»>) 1_ 



/ r 



16X1 



S t"/ G "C" 



/ this routine handles a sh-^' 
/ hypers pace . 






hp3> 



hp4, 



jsp col 

jmp sex. 

count :1 nial^hp5 

law 2000 

dac i nbi 

lac i mh4 

add hur 

dac i mh4 

rs-ndom 

ior (40000C 

add i mh4 

sraa 

Jnp poi 

l8.c i pihl 

dac 1. mil 

lac ran 

scr 9s 

sir 9s 

■xr ri -f- Vt -i^O 

dac :• iTidy 
di o 1 nidx 
setup hptj3 
lac ran 



ir 



6 s 



c'.a. c '' m"^ o^. 
lac ra.n 
dac 1 rr.th 





SRia 






su"b (3110^1 







soa 






add (311C''4 


■0 




dac j. rath 






count hpt J 


T^-nil 




count :'. rrliPJipY 




dzm i mh2 




hp7. 


xct hd3 
dac 1 n>i3 




hp6. 


lac 1 rnxl 






dispt 1, 1 


rnyl, 2 








kcb. 




dap kcl 
swap 
suli nyi 
swaD 
lac Izah 

SU'b HT. .1, 




\<-r' 1 


■^T-Y^-v^ 





,/nelocats for cents'"' ddSTslpv 



/ spaceship calc 



sslj 



jsp ^ CWE 
dlo sew 



CI c>P 

*^ O C-- ^ 



CWC 



srO 



rcom , 



irth. 






-TO 


dio 


^ sex*? 


elf 


6 


Jsp 


col 


J'Tlp 


s_ex 


lio 


s cw 


Glf 


6 cla ~ 03 


SDl 




add 


tnaa 


ril 


Is 


spi 




cub 


maa 


add 


• 


dac 


i mom 


szs 


10 


jnp 


. 3 


dzm 


1 IT; oil! 


ra^l 


73 


rll 


Is 


spi 




stf 


6 


lio 


i rrfu 


st)i 


-^ 


cif 


6 


add 


• 


sma 




sub 


f 3iio4o 


ST)S. 




add 


(3 1104 


dac 


i mth 


jda 


Q •" f~i 


dac 


Fp 


d 2n". 


bx 


dzm 


% 


sss 


60 




bsg 


lac 


-" 1^-1 -v" 'I 


dac 


tl'"^"~ 


roul 




scr 


^s 


dac 


acx 


cla 




S CT 


2 s 


dio 


Tox 


lac 


!_ :nyl 


rip rv 


XT*/" 


,,!.C-. L. 


W J™ 


:-ul 




scr 


Is 


dac 


acy 



/ update an^le 



hs't 



els. 




scr 2s 




swaD 




add'Tox 




sv?ap 




scl" 2s 




add. acx 




add acy 




sub str 




sma ?' sza- 


-slcp 








add s tr 




'•'arsft 




dac tl 




Ida sot 




rnul H 




undosft 




scr 9s 




scr Ss 




^ £jS- 




Jmp bsg 




S C 1? Is 




dlo Fi 




integrate 


nu:l . bx 


'nte grate 


niyl, % 


lac i r.th 




J da COB 




dac cs 




sa IT" 9s 




xct sac 




szf -■, 6 




cla _ 




add by 




diff i^y. 


myl, (sar 


lac sn 


1 


sar 9s 


xct sac 




c^r.a 




szf i 6 




cla 




aHd ta 




dlff i%c. 


'~;xl,, (sar 


scale sn, 


5s , "Bsn 


t„^ -.^ ^^ , !_ -V,. V.y [„> ^ 


5s > son 


1 P /n -• r.--.^ 1 




szs 20 




sub nxl 




sub s_sn 




dac sxl 




sub ssn 




f^'P' r' n/rT 





3s 



^f 



szs 20 

S n ■*•-) TlTrl 

add s_cn 

ciac s"^'! 

add £cn 

dac st^ 

sca.3.e sp,;, 9s ^ ssn 

3cal£Fs^ Os i sen 

ds-c _scrr, 

lac s_sn 

dac s_sm 

add s_cn 

da c s_3 c 

d8.c 33 6. 

la~c s_sn 

sub sen 

dac c ^' 

cina 

dac csm 

cXs, cl i— en r" 

szs 20 

Jda kcb 

dp3r-4O0O 



mot,sp5^ 

sq6 ^ -oh 

11 o i"ev? 

r:l. 1 2 s 

^?'^ 3 / not blastlnp: 

^mv> so 9 /no tall 

ra-nct SPT 9s, sf:.r hs , iTrc 

s cal © ST! . Bs . ssn 

scale "s ,, 8s, Fen 

sqTj count 1 r'fi;,, st2 

dz" 1 rnfi^ 

U '■ '^-^ ■-' ■■. -^ 

st2^ yincr s:ti_^ syl^ sub 

dlspt i syl 

c ou n t Fr c „- s c 7 
sqQ, count 1 -nai; sr^ / checlc if torp tube reTofded 

dzm 1 r;al. / pre-'ent count around '^ "' 

:acOj ^.ac . _/ nncvlous contpol won^'' 

crna 

szs 1 30 

clc 

and SGvr / present control word 

^^-■l 3s / torpedo bit to bit 

sma 

,jmp sr5 _ / no launch 

count !_ mtr, sti / check if "torpedos exhausted 
dzm 1 mtr / prevent count around 

jmp sr5 
stl, inlt srl, mtb nob~l /search for unused obiect 

i^-LX, 1,8. C . 

sza 1 / If unused 

jmp sr2 

law 1 1 

add srl 

dap srl 

sas (lac intb-1 





jrnp srl 




hit 




jmp sr5 


sr2. 


lac (tcr 




dac 1 srl 




law nob 




add srl 




dap ss3 




lio stx 


ss3. 


dio . 




add (nob 




dap ss4 




lio s'ty 


ss4. 


dio . 




add (nob 




dap sr6 




add (nob 




dap sr7 




add (nob 




dap sr3 




add (nob 




dap s_r4 




lac sn 




xct tvl 




cma 




add i mdx 


sr3. 


dac _^ 




lac cs 




xct tvl 




add 1 mdy 


sr4. 


dac . 




xct rlt 




dac i ma 




xct tlf / life o 


sr6. 


dac . 




lac (lac mtb nob-1 




sub srl 




sal 3s 
add (30 




sr7. 


dap _^ 


st5> 


lac sew 




dac i in CO 




count i mh3. mbl 




dzm i mh3 




lac i mh2 




sza 1 




jmp rabl 




lac sew 




and (600000 
xor (600000 






sza 




Jnip mbl 




lac : m3.1 




dac 1 mhl 




lac (hpi 400000 




dac 1 Kill 




xct hdi 




dac i mal 




law 2 




dac 1 i;:bl 



/ no space for new objects 



/ set up torpedo calc 



/ permit torp tubes to cool 
torpedo 



/ length of torp calc. 



/ here to handle spaceships dragged Into star 



/ spaceship In star 



pot, 



polj 



dzm 


1 -dx 


dzm 


i rcdy 


szs 


50 


Jrap 


DOl 


lac 


(377777 


dec 


.1 m;:l 


dac 


i niyl 


lac 


i mbl 


dac 


ssn 


count Bsiij 


jrap 


inhi 


lac 




dac 


• ■■■.- 1 i 


laxv 


i. 10 


da c 


;*. mal 


J'Hp 


mbl 



/ outlines of spaceships 

otl, 111131 

mil ' 

4 'I -I ^ ■-? ■1 

111163 
l-'l6ll"-' 

12.1114 
7C0000 



. 5/ 

ot2 , 



:? 



/ 






1 

•1 


131 i' 




--^■^ ^ -'^„' 


1 


3111" 


i 



61151 
6511^!- 



'CCOOC 



/ novr go h?ng 



variables 
constants 



.-64/ 



^o / 



/ O^-JC' ^v 



;chc 



/displa; 



>.--• w ^J ^. i.. 



fss^ 



,1 „ ,„ -r. 



lac 



dac 
dac 



■ s 1 

■Pel O 

r' o r> 

fc^S >^.i v^ 

tw> iJ> V. 






fii, 

fl2. 



4> » „ 



J^ ^"\. X ^ 



'It, 



fus. 



dzm 
dzm 
jrap 



S U: 

da.c 
law 
sub 
dac 



1?^ 



ac 



csn 
s]sn 



c2l 



c2''> 



dac t4 

3 2; f* '^, 



lio 


2s c 


szf 


-■■■■ 


lio 


Isc 


ficl 


Is 


cl a 




rj-- ,T 


cl2 


hit 




fiza 




ji::p 


f"i 


^' 1 O 


t3 


la.w 


400 


1 df' 

V ---■■ 


fss 


law 


fys 


dao 


X J. i^ 


idz 




en: a 




dac 


t3 


lav; 


fU8 


da-3 


:. t6 


da a 


• ¥1 
^ 1 


lac 


c?0 


szf 


■3 


caa 




dac 




lac 


add 


c3C 


d.a G 


th 


da, a 


sxl 



/r; p ': 



cor--v', led oi 



/£ 



C SCO J 



3Zf 


-^ 


law 


net 


3Zf 


- 1? 


lavf 


not 1 


dap 


fus 
t5 


ra.1 




ci ■' 





■^ O ■'^ /^ c 



dDy-^GOO+TCO 



i-O 



fl3g. 


o ■***' 


i . 


frt^ 




* 


fys. 


law 


4000 




J da 


fss 




1pm 


fub 




6.s.r) 


-1 .^,< 




dap 


■r -I- r-y 

... u ; 




lac 


c26 




dac 


S.X1 




lac 


c20 




szf 


^ •^ 

".. .^ 




cr:E 






add 


c^.O 




dac 


syl 




la.w 


i 2 




dac 


t3 




j!"''? 


fds 


fut>. 


szf 


3 




jiap 


. 3 




stf 


3 




J rap 


. 2 




elf 


3 




?ot 


11 




dio 


ti" 




lot 


111 




dlo 


t.2 




law' 


1 




and 


fl 




.and 


^2 




sza 






Jiap 


f " -r 




law 


2'" ' 




and 


tl 




and 


F2 




sza 


X 




jnip 


fis 




law 


a4-F 




dap 


flu 




jn:p 


fwt 




IS-W 


4 




dap 


flu 


fV7t, 


3,dd 


., 




d ?. c 


tl 



riu 



fxl. 


d:',o tl 




dac t3 




law f:-2 




dap frt 




law l^.OC 




Jda fss 




jnp fit 


fs2. 


llo Tl 




'''i.- '' ^ "--^ 


cl2. 


12 


c20. 


200000 


c21. 


21 


c23. 


-2C0000-30C00 


c26. 


-2600C0 


c30. 


30000 


t3, 
t4. 






t5. 
t6. 




c 


t7« 






5'-t;b, / tP-'ole of objects end their DroDertle; 

start 4 



Bpacer/ar 4.3 5/17/6 3 
spacewar 4.3 5/17/6 3 
stars "OY prs for s/w 



Cldp . pt 1 - pass 1 
ddp . pt 2 - pass 1 
2b - pass 1 



rDs:l,=mtb nob 

f 








!ixl=mtb nob 

nylsnxl nob 

start 

f - pass 1 

spaceifar 4.3 5/1 7/63 ddp . pt 

spacewar 4.3 5/17/63 ddp , pt 

stars by prs for s/vj 2b ~- pass 2 

spacewar 4.3 syms 5/23/63 Jem 


1 - 


- pass 2 

- pass 2 


Constants area. Inclusive 
from 1 
2763 3111 







Ij 


6077 


Im 


704 


iq 


6117 


Isc 


1323 


2J 


6121 


2m 


763 


2q 


6l4l 


2sc 


1324 


3J 


6l43 


3m 


1042 


3q 


6403 


^-^ 


6405 


4m 


1121 


4c 


7747 


8a 


1520 


8aa 


1570 


Sad 


1543 


Sao 


1555 


Sao 


1562 


8ax 


1602 


Say 


1533 


8jl 


l44o 


8J? 


1444 


a 


1325 


al 


1315 


B.C: 


136 f 


a3 


l4l3 


a4 


1345 


a4o 


1320 


a5 


1341 


&6 


135^ 


acx 


?754 


acy 


2756 


t)Cl 


665 


t>c3 


671 


bcc 


1200 


bck 


654 


bcx 


703 


l3cy 


702 


bds 


542 


bjm 


54l 


bkc 


1201 


blp 


466 


TDlx 


513 


T&pt 


5l4 


t)pX 


643 


bsg 


2336 


bx 


2731 


by 


2732 


cl2 


3423 


c21 


3425 


C23 


3426 


c26 


3427 


c£0 


3424 



c30 


3430 


col 


1603 


COS 


100 


cox 


1663 


OS 


2757 


csm 


2723 


csn 


2726 
l46 


CSX 


cwg 


2745 


cwr 


4o 


ddd 


20 


fds 


3322 


fil 


3255 


fl2 


3260 


fid 


25 


fie 


16 


fik 


3403 


fin 


7 

i 


fls 


3263 


flu 


3411 


fkr 


3277 


flo 


56 


flp 


46 


fit 


3304 


foo 


1? 


fou 


15 


fpo 


S5 


fpr 


120? 


frr 


14 


frt 


3335 


fs 


;4 


fsl 


3f^4 


fss 


^24o 


fub 


3355 


fug 


3334 


fus 


3^1- 


fuu 


35 


fwt 


3405 


fx 


36 


fxl 


34l£ 


fx2 


3421 


fyn 


20 


fys 


3336 


get 


2746 


grv 


32 


hdl 


23 


hd2 


24 


hd3 


25 


'npl 


2015 


hp3 


2046 


hp4 


2107 


hp6 


2124 


hp7 


2122 


hpt 


2751 



hrl 


?6 


hr2 


27 


hur 


30 


Idl 


1436 


ids 


1470 


lox 


2755 


kcl 


2143 


kcts 


2132 


raal 


1677 


ma 2 


1700 


ma a 


13 


tabl 


1503 


mb2 


1673 


mco 


2511 


mdi 


1267 


mdn 


1273 


mdx 


2734 


mdy 


2735 


mel 


16 


me 2 


17 


mex 


1701 


mfu 


2736 


mgl 


1435 


mgS 


1451 


mg3 


1450 


mg4 


1455 


mhl 


2740 


mh2 


2741 


mh3 


2742 


inh4 


£743 


mhs 


c :: 


mil 


1736 


mil 


1476 


ml 2 


1625 


mlO 


1203 


mom 


2164 


mot 


2440 


mql 


1506 


mq2 


1653 


msh 


1735 


mst 


1754 


mtl 


2747 


mtb 


3436 


mtc 


2733 


rath 


2200 


mtr 


2737 


mxl 


1630 


mx2 


1631 


mxc 


2750 


myl 


l64o 


my 2 


16 4l 


n:zl 


172? 


nal 


3546 


nbi 


3576 



JICO 


3720 


ndx 


36£6 


ndy 


3656 


nfu. 


3712 


nhl 


372-: 


nh2 


3724 


nh3 


3726 


nh4 


3730 


rmn 


3732 


nob 


30 


nom 


3706 


not 


3716 


ntd 


2744 


nth 


3710 


ntr 


371^ 


nxl 


3466 


njl 


3516 


oc 


230 


ocl 


375 


oc2 


420 


oc3 


426 


oc4 


434 


oc5 


442 


oc6 


450 


oco 


460 


occ 


2717 


ocd 


4ii 


oce 


4o? 


ocg 


?52 


och 


^5"^ 


ocl 


P720 


ocj 


250 


OGk 


24l 


cam 


373 


ocn 


374 


oco 


264 


ocp 


266 


ocq 


265 


ocr 


267 


ocs 


222 


OCX 


372 


ocz 


227 


otl 


2655 


Ot2 


2672 


p 


3l4o 


pol 


2650 


pof 


2634 


ran 


31 


rlt 


10 


sac 


14 


sbf 


61 


scl 


2152 


scm 


2721 


sen 


2710 



sew 


£752 


sex 


1667 


sft 


66 


sll 


112 


sl£ 


147 


si3 


117 


sin 


106 


sn 


2753 


Bp5 


244o 


SQl 


2£0 


sq2 


221 


sq3 


171 


sq6 


2441 


sal 


2466 


sq9 


2506 


sqt 


162 


sqx 


174 


srl 


2527 


sr2 


2541 


sr3 


2570 


srft 


2574 


sr5 


2606 


sr6 


2600 


sr7 


?6o^j 


src 


?762 


srO 


215? 


ssl 


2144 


ss? 


2147 


ss3 


2547 


ss4 


2553 


ssa 


/^- r-7 ^ r-7 


ssc 


2725 


ssd 


2724 


ssl 


2730 


ssm 


2722 


ssn 


2707 


stl 


2525 


st2 


2472 


str 


15 


stx 


2760 


sty 


2761 


sxl 


2715 


syl 


2716 


ta. 


2712 


tg 


2713 


t3 


3431 


t4 


3432 


t5 


3433 


t6 


^.434 


t? 


3435 


tcl 


1771 


tcr 


1756 


the 


21 


tlf 


11 



tno 


6 


tvl 


7 


v2 


^ 

^ 


xys 


2711 


xyt 


271^^ 



spacewar h.s 5/II/63 ddp • pt 1 

3/ J"^P s|^f / ignore sec. break 

jmp a 40 

jmp al / use test word for control, not iot 11 co 

/ Interesting and often changed constants 

/symb loc usual value (all instructions are executed, 
/ and may be replaced by jda or Jsp) 

tno, 6, law 1 4l / r^umher of torps + l 

tvl, 7, sar 4s / torpedo velocity 

rlt, 10, law 1 20 / torpedo reload time 

tlf, 11, law 1 140 / tornerin 1 -1 f c 

foo, 12, -20000 / fuel supply ^^ 

^«r' H' JL Zio '^ spaceship angular acceleration 

III' it' f^^ ^ ^ spaceship acceleration 

.' .?■' 3: ^ / s^s-^ capture radius 

mel, 16, 6000 / collision "radius" 

me2, 17, 3000 / above/2 

at' -?' ~° ^ / to save space for ddt 

IhV ^' i^Z ?%n '/ ^^°}?^^ ^^ torpedo space warpage 

hH^ ^^' n ^ hS ^ number of hyperspace shots 

hd?' 24' ItZ I ^nn ^'"^'^ ^"^ hJ'Perspace before breakout 

hd3' 2^ ]1Z t -nn < J^"'® ^" hyperspace breakout 

hrl! Ir s?T Qs / ,,,-,, ^^^^"^^ to recharge hjrperfield generators 

nri, ^. scl 9s / scale on hyperspatial displacement 

hur' 30' 4on4 V T^ on hyperspatlally Induced velocity 

l'^^' ^. o 'V hyperspatial uncertancy 

ran, |i, o / random ntomber 

srv, 3^. sar 6s / gravitational constant 

/ place to build a private control word routine. 

/ ht-h order rh^^^^ control word in the lo as follows. 

'/ "ri°e rock4 |nd''S,^?^^%''''^^''°'f^^ "'^^ ^^?^^ ^'^^^ hyperspace) 
/ ~^li ^°^f°^> ^^-^ ■'■i^e torpedo. Low order 4 bits, same for 
/ other ship. Routine is entered by Jsp cwg. 

°^^oA/ 4"^^'' "''^^ / normally lot 11 control 
. e^Q/ / space 



/ routine to flush sequence breakes, if they occur. 

st)f, t3^1 

lio 2 
lac 
Ism 
Jrap i i 

define 
xlncr X/i%INS 

lac y 
INS ssn 
dac Y 
lac X 
INS sen 
dac X 
term 

define 

yincr X,Y, INS 

lac Y 

INS sen 

dac Y 

lac X 

-INS+add+sub "ssn 

dac X 

terminate 



dispatch 



define 

add ( . 3 
dap . 1 

Jmp . 
term 



define 
dispt A^YjB 

repeat 6 B=B4-B 
lio Y 
dpy-A4B 
term 

define 
scale A,B,C 

lac A 
sar B 
dac C 
term 



define 
diff V,S,SF 

add 1 V 
dac i V 
xct SF 
add 1 S 
dac 1 S 
term 



define 
random 

lac ran 
rar Is 
xor (355670 
add (355670 
dac ran 
term 



define 
ranct S,SS,C 

random 

S 

ss 

sma 
cma 
dac C 

terminate 



define 



V?, 



define 



define 



varsft 



dzm 

dac 

idx 

Idx 

la< 

scr 

dac 

jrap 
scr 
swap 

terminate 



xys 
xys 

2s 

ve+R 

25 



undosft 
dac tl 



dio 
lac 
add 
dap 
lac 
dac 
dac 



J2 

xys 

sft 

,+1 



.+6 

.+6 
xor XlOOOO 
dac xyt 

Ta 

T2 



/ change scr to scl or scl to scr, 



lac 
dio 
scr . 
scr . 

terminate 



integrate 
ell 

i A 

9s 

Is 

Tl 



A,B 



lac 
scr 
scr 
dlv 

hit 
craa+cll 

xct xyt 
xct grv 
dac B 
terminate 



opr 



sfl 



lac .-1 
scr 7s 
scr 6s 
scr 5s 
scr 4s 
scr 3s 
scr 2s 
scr Is 
scr 
scl Is 



/sine-cosine subroutine "Adams assoclE.tes 

/calling sequence^^ number In AC, Jda sin or jdaccs. 

/argument is between +7 v±, v,h th binary point to ric-ht of bit ^, 

/ansvrer has binary point to right of bit 0, Time ^."2,35-? ras.~" 

/changed for auto-multiply , ddp I/19/63 



C0S3 



sin. 



sil, 



sl3j 



si2. 








dap 


CSX 


lac 


(62210 


add 


cos 


dac 


sin 


Jmp 


,4-4 







dap 


CSX 


lac 


sin 


spa 




add 


(311040 
(62210 


sub 


sma 




Jmp 


sl2 


add 


(62210 


ral 


2s 


mul 


(242763 


dac 


sin 


mul 


sin 


dac 


COS 


mul 


(756103 
(121312 


add 


raul 


COS 


add 


(532511 


raul 


COS 


add 


(144417 


mul 


sin 


scl 


3s 


dac 


cos 


xor 


sin 


sma 




Jmp 


csx-1 


lac 


(377777 


lio 


sin 


spi 




cma 




Jmp 


CSX 


lac 


cos 


Jmp 


• 


cma 




add 


(62210 


sma 




Jmp 


si3 


add 


(62210 


spa 




J rap 


.+3 


sub 


(62210 


Jmp 


sl3 


sub 


(62210 


Jmp 


sll 



/integer square root 

/input in ac, binary point to right of bit 17, Jda sqt 
/answer in ac v;ith binary point between bits 3 and 9 
/largest input n-umber = 177777 



sqt. 









dap 


sqx 




laM 


1 23 




dac 


sql 




dzm 


sq2 




lio 


sqt 




dzm 


sqt 


sq3. 


isp 


sql 




Jmp 


.+3 




lac 


sq2 


sqx. 


Jmp 


• 




lac 


sq2 




sal 


Is 




dac 


sq2 




lac 


sqt 




rcl 


2s 




sza 


i 




Jmp 


sq3 




dac 


sqt 




lac 


sq2 




sal 


Is 




add 


(1 




sub 


sqt 




sma+sza-skp 




jn^ 


sq3 




spa 






cma 






dac 


sqt 




idx 


sqf 




jmp 


sq3 


sql. 







sq2. 








/outline compiler 

/ac^where to compile to, call Jda oc 

/ot=address of outline tabls 



define 


pllnst A 
lac A 
dac 1 oc 
Idx oc 
terminate 








define 


comtab A, B 
pllnst A 
jsp ocs 
lac B 
jmp oce 
terminate 








ocs. 


dap ocz 
dio 1 oc 
idx oc 
dlo 1 oc 
idx oc 




/puts in 


swap 


ocz. 


jnvp . 








oc. 




dap OCX 
lac 1 OCX 
dap oc£ 
pllnst (stf 
dap ocm 
idx OCX 


5 


/outline 


compiler proper 


ock. 


pllnst (lac 
pllnst (llo 
elf 6 


"sxi 

syl 






ocj. 


setup oce J 6 








ocg. 


lio . 




/outline 


table 


och. 


cla 

rcl 3s 

dio ocl 

lio (rcl 9s 

dispatch 

opr 

jmp ocl 








oco. 


jmp oc2 








ocq. 


jmp oc3 








ocp. 


Jmp oc4 








ocr. 


Jmp oc5 
jmp oc6 









pllnst (szf 5 /7 code 

add (4 

dap ocn 

pllnst ocn _ 

pllnst fdac s_xl 

pllnst (dio syl 

pllnst ( jmp 50^6 

pllnst (elf 2 

pllnst (lac scm 

pllnst ^cma _ 

pllnst (dac s_cm 

pllnst (lac ssm 

pllnst icma __ 

pllnst (da.c _ssm 

pllnst (lac £sm 

pllnst flic s_sd 

pllnst (dac _ssd 

pllnst (dio csm 

pllnst (lac ¥sc 
pllnst (llo _csn 
pllnst (dac £sn 
pllnst (die ssc 
pllnst ocm 
OCX, Jnip . 

ocm, Jmp . 
ocn, Jmp . 

ocl, pllnst (add "ssn 

Jsp ocs _ 

lac (su"b sen 
oce^ dac 1 oc 

idx oc 

Jsp ocs 

pllnst (ioh 

lac (dpy-4000 
ocdj dac 1 oc 

idx oc 

llo ocl_ 

count occ, och 

idx ocg 

jmp ocj 

oc2, comtat) (add ^cra, (add s|sm 
oc3, comtab (add s_sc, (su"b _csm 
oc4, comtab (sub _scm, fsub s_sm 
oc5, ■ comtab (add csn, (sub ssd 
oc6, szf 6 

jmp oc9 

stf 6 _ 

pllnst (dac ssa 

lac (dio ssi 

jmp ocd 
oc9, elf 6 _ 

pllnst (lac "ssa 

lac (lio ssi 

Jmp ocd 



/display a star 

define 

starp 
add 'Fx 
sv/ap 
add ¥y 
swap 
loh 

dpy-4000 
terminate 

"blp, dap blx /star 

szs 60 
jmp t)lx 
random 
rar 9s 
and (400700 
spa 

xor (377777 
dac Fx 
lac ran 
ral 4s 
and (400700 
spa 

xor (377777 
dac oy 
Jsp ttpt 
loh 

"blx, Jmp . 

bptj, dap bpx 

random 

sar 9s 

sar 6s 

spa 

cma 

sal 3s 

add (bds 

dap bjm 

cla cli elf 6-opr-opr 

dpy-4000 
b Jm, Jmp . 
bds, repeat 10, starp 

szf 6 
bpx, Jmp . 

stf 6 

cma 

swap 

cma 

swap 

Jmp bjm 



/background display • 3/13/62, prs. 





define 


dlslls 


J, Q 






dap 


fx+R 




elf 


5 




lac 


flo+R 




dap 


fpo+R 


fs. 


dap 


fin+R- 




dap 


fyn+R 




idx 


fyn+R 


fin. 


lac 


/lac X 




sub 


fpr /right margin 




sma 






sub 


(20000 




add 


2000 


frr. 


spq 




fou. 


Jmp 


fuu+R 


fie. 


sub 


(1000 




sal 


8s 


fyn. 


llo 


/lie Y 




dpy- 


-1 




stf 


5 


fid. 


idx 


fyn+R 




sad 


(llo Q+2 




Jmp 


flp+R 




sad 


fpo+R 




Jmp 


fx+R 




dap 


fln+R 




Idx 


fyn+R 




Jmp 


fln+R 


fuu. 


szf 


5 


fx. 


Jmp 


/return 




idx 


flo+R 




Idx 


flo+R 




sas 


(Q+2 




Jmp 


fld+R 




law 


J 




dac 


flo+R 




Jmp 


fld+R 


flp. 


lac 


(llo J 




sad 


fpo+R 




Jmp 


fx+R 




dap 


fln+R 




law 


J+1 




dap 


fyn+R 




Jmp 


fln+R 


fpo. 


llo 




flo. 


J 






terminate 





def 


Ine 




background 








Jsp 


bck 






termln 




bck. 


dap 


bcx 






szs 


40 






Jmp 


bcx 






Jsp 


Im 






Jsp 


2m 






Idx 


bcc 






and 


(1 






sza 








Jsp 


3m 




bcl. 


law 


3 






and 


bcc 






sza 


1 






Jsp 


4m 




t)c3. 


Isp 


bkc 






Jmp 


bey 






law 


1 10 






dac 


bkc 






law 


i 1 






add 


fpr 






spa 








add 


(20000 






dac 


fpr 




iDcy, 


Jsp 


Im 




bcx. 


Jmp 






Im, 


disl 


-is IJ, 


Iq 


2m, 


disl 


• Is 2j, 


2q 


3m, 


dlslls 3J, 


3q 


4m, 


dlslls 4j, 


^q 


bcc. 









bkc. 









fpr. 


10000 





mul=mus 
div=dls 



start 



spacewar 4.2 5/1-/^3 ddt: 



n an 



f o 



/main control routine for spaceships 

nob-30 /tota.l number of colliding objects 

mlO, setup mtc, 5000 /delay for loop 

Init mll^ rntb /loc of calc routines 

add (nob 

dap mxl / T. 
nxi=r:,tb nob 

add (nob 

dap Tiyi / Y 
nyl-nxl nob 

add (nob 

dap nal / count for length of explosion or torp 
nalrrnyl nob 

add (nob 

dap mbl / count of instructions taken by calc routine 
nbl=n8i nob 

add _£nob 

dac nidx / dx 

ndx=nbl nob 

add ^nob 

dac tr-dy / dy 

ndy^ndx nob 

add (nob 

da.p mom /angular ^^elocity 
nor;:-ndy nob 

add (2 

dap nth / angle 
nth=^noni 2 

add X.2 

dac mfu /fuel 
nfu~"f^th 2 

add {2.. 

dac mtr / no torps repairing 
ntr-nfu 2 

add (2 

d?,p mot / outline of spaceship 
not~rtr 2 

add (2 

dap roco / old control word 
nco=not 2 

add (2 

dac rnhl 
nhl=nco 2 

add (2 

dac Sh2 
nh2^-ni.l 2 

s.d d ^ 2 

d ■?. c "^'^ 3 

p 'n '-! - . tl 'i 2 2 

add (2 

dac rflh^v 
nh4~nh3 2 
nnr=:nh4 2 



I'--. A '1 



"'nri VI 



law 


ssl 


r.or 


rr-tb 


sze. 




law 


Ddn 
ss2 


"ZOT 


mtb 1 


sza 




Jnp 
law 


mdn 

1 / t 


add 


ntr 


spa 




Jmp 
law 


mdl 
i 


add 


ntr' 1 


spa 


■" 


jrnp 
xct 


mdn 

tlf / r^ 


da c 


Is 
ntd 


u ■■■' ^' 


r-1 1 


count ntd;,n]..l. 


stf 


1 


stf 


2 


law 


ssl 


xor 


atb 


sza 




elf 


1 


sza 


i 


Idx 


is 


law 


ss2 


"or 


'■ntb :L 






clf 


2 


3 2; B: 


^ 


-'\ r^."^/" 


2s c 


clf 


2 


;'n-n 


a. 



es' 



,f both BhlDs out of tortus 



' "'"sstfr't delay 'i s 2X to"''''Cf5'''0 I'^^e 



'ho 



2s c , 



la:-; 
dac 




v'.vn 


f' 


la"; 


_CW^"' 


d" c 




Jnip 


a6 














^1^ 

8:^2 



/ +- 



/ h^,^p> 



-' S ''^ '[»ro";'*r^ C O '*^ t^ "^ ■"^ "^ 



'^■fc .-"h ^'- 



/ 



S C O P O 5 



a 5 



lac 


Is c 


5 a s 


2b '^ 


law 
dac 


aV" 
1, 1 
aat 


la,t 




j^n-:^ 


( ^'-^ 


sze. 


-? 


J"P 
lat 


a 2 
fil 


a nd 


(4o 


saa 




dzn 


... ■'1, 

Isc 


da 5^.1 


2s c 


] at 




rar 


6s 


and 


f^.7 



-2, 



dac 


set 


{^ *1 r!>. jC 


T nfOj I 


law 


ssl 


dac 


TpfO 


law 


ss2 


p? r^ r* 

ice 


mtb 1 
(200000 


C^ o /■> 


nxl 




*^^-^r *! 


r-^-p 




dH,C 


a"l 1 


dec 


p^r"! 1 


1 c c 


f -i JiiJiiipa 


r n ^ 


^^>T 



/ claar out all tslDlas 



law 


v-\ v-> v^ 

4 i:. I • 


dac 


not 


lio 


ddd 



outl^ n 



^roc 



Ida, 


oc 


otl 




dac 


not 1 


dao 


■p-s i 


J da 


oc 


ot2 




dap 


f 12 


xct 


tno 


da c 


ntr* 


dac 


ntr ''. 


lac 


foe 


dac 


vrPn 


dac 


P^-Pitj. 1__ 


law 


2000 


dac 


nol 


da c 


nb'^ 1 


xct 


rnhs 


dac 


nh2 


dac 


nh2 1. 


Jmp 


mlO 



1 a ou 1 1 ' '^ R 



/ control, vford Z-^- T'outlnes 






8* A 

8o2, 

mg2, 
idl^ 



.0.3^ 



dao 


mg3 


lot 


1 " 


J'sp 


8a 







dac 


tl 


lot 


ill 


jsp 


8a 







llo 


~1 


rll 


4s 


rcr 


ks 


Jrap 


« 


dap 


Mgi|- 


lat 




S V'lB.'p 


jil.p 


• 


-• ,--3 -^ 


nth 


Id" 


Efu 


Idx 


mtr 


Id" 


::.GO 


1 dx 


mot 


idx 


raora 


idx 


niril 


idz 


£h2 


Idx 


mil 3 




Ehil- 


■S r5-<r 


yV. ■»!-■'? 


X U- J ^ 


- ■'■•*"■"- -'- 


idx 


-yx 


idx 


L.c-'. X 


* •• 


. 




moi 


idx 


i^y 


idz 


mdx 


lac 


• 


r^ r? r^ 


* 


O ^«f '. 


X 


,- „„ ,„ 


r ■f' -1 


<J ' I" 


Is-..' J„ 


dap 


. 1 


'• \':'i Vi 




^jUijJ 


• 


lac 


, 






1 ^1 ^1 




O. 'J. ,) 


... L.;.' 


da. c 


~tc 


-' .-.t ^..- 


r:-:l -: 


cp rl 


"'iZr 


W C.,\J. 


K, lo-v 


- -- -, -o 


• rjl 


cl -'f 




c? O r< 


( i"^ .. 



/ ist conii^ol word 
/ zero if not activ; 
/ no t s.ct ,' ^-'Q 



/ alter' court of number of instructions 



L-U J. 






..: L. 



use uo X'ost o.i, ^_:-i.;e o.i 



»1"" / r-:-eEt vdiolc 



- ,5., P„ ... 



clf 


7 


spl 




stf 


Cj 


s^f 




st^ 


/-; 


rii 


1 



:::d oe 



1 "';! 

r\ f7-\ fi 



4. ,,.. J- -^^L 



jtnp oaq 



:-c:; 



f ■■- h 



8a 0, 



.-.or \x 



'ao^ cIj 



S [J .1. 

lav/ 



.or i,... 



.o„. 



spi 
ior 
spl 



r ■ h. 

1 '^, 

c. 
^10 



c. 
1 r- 



I )i 



col^ 



lc:.W i 

add -:1^ 

jmp co:-c-i 
dao rnl2 





lai'/ 


/* 




add 






dap 
]..aw 


± 




add 


rnyi 






niy2 

J- 




add 


TiS. j 




dap 


niaP 




lav; 


1 




add 


^bl 


u: .1. ='- _; 


dan 
lac 


ribS 


inxlj 


spq 

JQp 

l?.c 


niq2 


rnxP, 


sub 
spa 


• 




dac 






sub 


mel 




E;::a 






lac 
sub 
spa 


mc2 




sub 


!T.6l. 




f* ■'"^''^ ^5^ 






add 


u:c2 




E ub 


:iig2 




'^. 'HP 




p- '-1 p 


jmp 


CO"' 



,ri ^ "1 "^ -' 






/ 2nd control vrord 
1 :b con Ida'? 
/ ao 
csd. '■". ■■ 

/ 'IH J. ijC- ., 



/ 






/ < e 



•a:r -vP 
idx ab2 

' ^^ -'1 fTS •^■- 'f-r 1 O 

•^ rl a*" r» r''"'^ 



I -\ 



/ r.y "'1 ^"f C'. '^ p i-^i''- ■^■',0 >•> ■' c ?"\'Vi 1 -^ /-%-i^ 



■r'-a ,-=ob alP 



/ r'Cy 1 ■'" 



r,--'^-\ 



or/_.cti 





law 


2C 




dac 


". nbl 




^^?c 






1 r_ ^ 




dac 


i rail 




dac 


d xl2 




;i n n. 


1 :r;bi 




add 


• 




crna 


Ss 




add 




'':.e.l.i 


dec 


? 


■::.b2'. 


dac 


» 






■^■"^1 OS Ion 



/ ...... 



/ ez^Dlcsion 



X3-C .". -.T-ClX 

add 1 rr;xi 

da c 1 a'X 1 

sar 3s 

arid -' p-'vl 

dSC 1 'TiX/"l. 

1 sif *.ns '"i 






1 .o r^ 



moll. 



craa cli-opr 
sai- 3_s 
dac mxc 
sub (ii!-C 
sr-ia 

id:: msh 
lac ra.n 
and f777 
icr (scl 

fl p f-» T'-^ -' ■-'! 

'r^O T^rl r^,^- 

>:^ nT^ Go 





c; ■ '^ 


-> 


s 






:<ct 


« 






■'■ ■*- 3 


hit 










add 


-• 








si-'faT:: 










edd~' 


» 




;•' "' 1 






/ time in 



rl ry ^— -^ Y- 1 "' 



/ t O T'^O B d O 08. 1 C T:"^ C) Lit' ^\ n 6 

jmp sex-3 

count 1 malj tc- 

lac (mex 400C00 

d ? C • '' ul 1 "s 

law i 2 
dac 1 '^al 
law 2C 

dS C ": rrV,' 






Jmp 


nbl 


lac 


''. uT "i 


sar 


9s '^ ■ 


:tGt 
add 


the 
1 -dy 


dac 


1 nidy 


sar 
add 


1. rT"^/ .1- 


dac 


1 -Tiyl 


sar 




xct 
add 
dac 


tl'ie 
i cid:c 
1 Td" 


?.ar 


35 "^"^ 


add 


i mxl 


da c 


■ '-•i-^r'5 


dis" 


)t ;., 


j-p 


rnbl 



/ hyperspa-ce routines 

/ this routine handles a non-colld ding ship inv?,sibly 
/in hypers pel ce 

hpl, count i iTiai, rr:"bi 

law hr)3 / next steo 

dac i -t:!! 
lax'; 7 
dac 1 rnbl 
rap. dorr, 



' r> y^ 



xct 


hrl 


add 


1 fiiX -u 


dac 


J rrv-:-1 


svfap 




add 

rlpn 
P 7; 


-1 ,,,.•! 
>> - 


,1 r^v- 

xct 


- >/ 

hd2 


dac 


1 n^a 1 


t„-rs 


rn >i ' 



^■•'\,' 



/ Mr" <^ 

/ i^ \'"^)(^ T*^ ■pip- r* ' 



D --.'"* 8' 



hp3. 


Jsp 


col 




Jrnp sex 

count 1 nal.j,hp6 




law 


2000 




dac 

.,;., C?v v^ 


1, mbl 
i 5h4 




add 
dac 


hiir 
1 rnh4 




random 

ior (400000 

add X n\i4 




s!::3 






lac 


pel 
1 E^il 




dac 


i mil 




1 r* r> 


ran 




c* ^^ •^'^ 


9s 






9s 




x.ct 


hr2 




dac 


;• rndy 




d 1 o 


i mdx 




setu 


.p hpt ^ 3 




lac 


ran 




dac 


i mth 


hp4. 


lac 
srna 


1 rr:th 




sub 


( 311040 



idd (311Q4o 



hp7. 



ho 6 



O V' P "^- 1^ "0 "^ "^"^ 1") ^"■ 

count i_mh2,hp7 
dz.T. i mh2 
r.ct hd3 
dac 1 ^ii3 
l3.c i rr.xl 

"■■-■•■'£■' -■ - J> '■•u' ■- J 

jmp mbl 



2 



/ spaceship cal 



-1 Q-ri -: rtUtC-' 

d 1 o s cw 
jnp srO 



f^ K? 1^ ^ 



zsp 1 CW2 
rir 4s 
dlo sew 



•>tC f 



morn. 



rnth;, 



elf 


5 


,1sp 


col 


jmp 


s_ex 


llo 


s cw 


elf 


' 6 G la.- op r 


S'oi 




add 


rnaSi 


rll 


Is 


spi 




sub 


niaa 


add 


» 


dac 


i mon: 


szs 


10 


jmp 


• -> 


dzrn 


1 moir: 


ral 


7s 


rll 


Is 


spl 




stf 


6 


lie 


i rnfu 


St!- 


-* 


eif 


6 


add 




snia 




sub 


(311Q4g 


spa 




add 


(3iio4o 


da c 


1 mtli 


J da 


s_ln 


dac 


sn 


dzni 


-Ex 


dzrn 


% 


szs 


60 


jup 


bse 


lac 


1 rnzl 


dac 


n 


'TlVil 




scr 


Is 


dac 


a ex 


cla 




scr 


2s 


d:',o 


iox 


1 Fi n 


1 n'yl 


da c 


tl 


,„,,! 


T^i 


- ~i I..S .■- 


'-.J X 


scr 


Is 


dac 


acy 



/upda^ta angle 



cla 



bs/ 



scr 2s 




svj-ap 




add iox 




swa.r! 




scl^2s 




a.dd a ox 




add acy 




sub str 




sma 1 sza.- 


-skp 


jmp pof 




add str 




varsft 




dac tl 




jda set 




rnul tl 




undosft 




scr 9s 




scr 6s 




szs 1 20 


/ 


scr 2s 




sza 




Imp bsg 




scr Is 




dlo t"! 




integrate 


mxl, Fx 


integrate 


myl. by 


lac i rath 




jda cos 




dac cs 




sar 9s 




xct sac 




szf i 6 




cla 




add l-)]£_ 




diffjndy, 
lac sn 


rnyl, (s? 


sar 9s 




xct sa.c 




crna 




szf 1 6 




cla 




add bx 




diff mdx. 


rnxl,_(3i 


scale s_n, 


5s f £sn 


c< f> p 1 pi ,-> « 

o w c— ^> 't:; s^ o ^ 


5s ^ sen 


lac 1 mxl 




sub ssn 




dac _sxl 




t^ \^^ ^ O !-^ „ i 




f^l <:3 r» c« ■*" "^r 





/ svritch 2 for light star 



35 



3s 



lac i_ myl 

add sen 

dac £yl 

add s_cn 

dac st^; 

scale sn^ 9s ., ssn 

scale_ cs, 9s, sen 

lac Fsn 
da.c s_sm 
add s_cn 
dac s_sc 
dac s_sd 
lac s_sn 
sub s_cn 
dac csn 
etna _ 
dac csm 
cla cli-oDr 
dpy-4000 

11 o scvr 

ril ?s 

spi i / not 'blasting 

jrrp sq9 / no tail 

ranct s_ar 9s,. s_ar 4s, src 

sc-sle s_n;, 8s , s_sn 

scale cs^ 8s ^ sen 
sq7j count 1 mfU; st2 

dzrn i mfu 

Jmp sc9 _ 
st2, yincr sxl_^ syl, sub 

dispt i_^ syl 

count src;Sq7 
sc9, count *. rnal, sr5 / check if torp tube reloaded 

dsr- i rial / pre\''ent count around 
n:co, la.c . / previous control word 

s z s i 30 

clc 

and Few / present control word 

ral 3s " / torpedo bit to bit 

ST.a 

jT;p Er5 _ /no launch 

count i_ rr.tr, stl / check if torpedos exhausted 

dzT. 1 mtr / prevent count around 



•t- 



s: 



stlj :'.nit sri, intb nob-1 /search ^or unused ob.lec' 

srl. lac . 

sza i / if unused 

Jup sr2 

law '' 1 

p f^ H c* y^^'i 

8 as (lac ritb-l 

hit / no space for new objects 



st2. 



ss3i 



Sr',U. 



sr3;, 



sr4j 



sr6^ 






"! ac 


( *- r>T' 




/ 


O \,^ v^ 'w'. ' ..' i^ \.J ^ 


dac 


1 sri 








law 


nob 








add 


sri 








dap 
llo 


5S3 

stx 








dlo 


♦ 








add 


(nob 








dap 


s_s^'. 








lio 


sty 








dlo 


• 








add 


( nob 








dap 


sr6 








add 


(nob 








daD 


srT 








add 


(neb 








6.3.X) 


sr'3 








add 


(nob 








dap 


sr^l 








lac 


sn 










t^'l 








cma 










add 


i irTdx 








dac 


* 








lac 


cTs 








zot 


t^^l 








add 


1 mdy 








dac 


• 








X c t 


rlt 








dac 


•^ it; a 1 




/ 


pemlt tor; 


xct 


tlf 


/ 


l^.fe 


of tom^sdo 


dac 


, 








lac 


(lac !T 


;tb 


nob- 


^ 


suId 


snl 








sal 


3 s 








add 


(30 








dap 


« 




/ 


length of ■ 


lac 


s"cw 








dac 


1 mco 








count J_ mh3 J 
dzm 1 nhS 


mbl 




lac 


i Eh2 








sza 


1 








jmp 


rnbl 








lac 


S CX'J 








and 


(600000 
(600000 






xor 






sza 












,.« ■-, " 








lac 


- rnXi 










1 5hl 








l8-C 


fhol ^^ 


^00000 




^ *^ --i 


■', ml 3 


. 






ret 


hdl 








dac 


1 rr.al 








lav 


2 








dac 


i mbl 









;orn tiibes to cool 



-p ITlbX 



/ h'3r'9 to lisnciTp? b''~'Pcgs^~"'os d'f^s. '~'P-0''"1 ~^nt'o '5'^'.^!T' 



/ spaceship in st?r 



DC 



pol. 



d2:m 1 ~dy 
S2S 5C 
ir^T) TjOI. 

lac "(377777 

da c i myi 

dac s"sr_ 
coi,int ssn, . 

lac (r-'.ex 400000 
dac 1 mil 
lav/ ^ 10 



/ now go bang 



ji-np mbl 

/ outl:'*nes of spaceships 

otl, 111131 

ll'^.lll 
1111:1/ 

111163 
31111" 
14611" 
111' j 4 
700000 



. 5/ 

ot2. 



. 5/ 



013113 

116313 
l^lll-" 
161151 
111633 

3651" 4 
700000 



variables 
constants 



-64/ 



10/ 






/display sco^e routine 

fs5 J /set sr'.ze of 3^:^8.09^111 



fsl, 

flij law , /sot retvT'n of ccttp"' led oxitline 



fi2, 

fls, 



■*^l.--7 



fit 



fus 








d ap 


fsi 


lac 
da c 


fss 

S£Tn 


d B. c 
da.c 
dac 

d8-C 


s_sc 
s_sd 
s£n 
csm 


cma 
dac 
dzm 


£sn 
s_sn 


dzm 


SSIT; 


ITTl-p 


« 


la.w 


, 


sub 


c21 


dac 


te 


lai\r 


, 


sub 


c21 


dac 


t? 


lac 

dac 


c23 

th 


szf 


3 


11.0 


2s c 


szf 


^ 3 


lie 


Is c 


scl 


is 


cla. 




di" 


cl2 


hit 




sza 




die 


fxl 


1 s,w 


^100 


1-1 a 
- ■ 


■fss 


1 S.^'f 


fys 


de.p 


frt 

t3 


cina 




dac 


t3 


law 


fus 


d.£-p 


^. t6 


dap 


i t? 


lac 


g20 


szf 


-5^ 


crr;s 




dac 


1.,-i 

tn 


lac 


add 
dac 


t4 


dac 


sxl 



/r-,< 



score 



fds, S2f 3 /cllsplaj'- sr)?.ceshi.p 
law not 

3 2 f -* "^ 

law not 1 

daD fug 

idx t5 

ral 9s 

ell 

d.py--4000+700 

isp t3 
fug, Jmp 1 . 
f rt , Jrcp . 

fys, law 4000 

O'da fss 

law f ub 

dap i t6 

dap 1 t? 

ls.c c26 

dac sxl 

lac c20 

szf i 3 

cma 

add c30 

dac syl 

law i 2 

dac t3 

jmp fds 
fub, szf 3 

jmp . 3 

stf 3 

jmp . 2 

elf 3 

lot 1^1 

dio tl 

lot ill 

die t2 

law 1 

and t_l 

and t2 

sza 

jmp fik 

law 2 

and t_l 

and t2 

sza 1 

jmp fis 

law a4+i 

dap flu 

jmp fwt 
flk, law 4 

dap flu 
fwt J add . 

dac ^1 

Isp Fi 

jmp .~1 
flu, jmp . 



fxl. 


dio Fl 




dac tS 




law fx2 




dap frt 




law 1100 




jda fss 




jmp fit 


fx2. 


lio Fl 




jmp fkr 


Cl2, 


12 


c20. 


200000 


c2l. 


21 


c23. 


-200000-30000 


c26. 


-260000 


c30. 


30000 


t3. 





t4. 





t5. 





t6. 





t7. 






mtb, / table of objects and their properties 

start 4 



I v> I-' 



spacev/ar 4.2 5/II/63 d<5p : pt 1 - pass 1 

spaceivar t.£ 5/I6/63 odp : pt r - pass 1 

stars by pre for s/i-/ ri- - pass 1 

spacebar 4.2 5/II/63 cclp ; pt 1 - pa£ 

spacevjar 4.2 5/i6/63 cldp : pt 2 - pe 

stars by prs for s/w 2b ^~ pass 2 

spacewar 4.2 syms 5/^3o3 Jem 

Constants area, inclusive 
from to 
2714 3042 



u 


6077 


Im 


676 


Iq 


6117 


Isc 


1305 


2 J 


6121 


2m 


753 


2q 


6l4l 


2sc 


1306 


3J> 


6i43 


3m 


1030 


3q 


6403 


?J 


6405 


4m 


1105 


S^ 


7747 


8a 


1502 


8aa 


1552 


Bad 


1525 


Sao 


1537 


8aQ 


1544 


Sax 


1564 


Say 


1515 


8jl 


1422 


8J2 


1426 


a 


1307 


al 


1277 


a? 


1344 


a3 


1375 


a4 


1327 


a4o 


13or 


a5 


13^3 


a6 


1336 


a ex 


2705 


acy 


2707 


iDCl 


657 


bc3 


663 


bcc 


1162 


bck 


646 


bcx 


675 


bey 


674 


bds 


534 


bjm 


533 


bkc 


1163 


blp 


466 


blx 


513 


bpt 


5l4 


bpx 


635 


bsg 


2277 


bx 


2662 


by 


2663 


ClP 


3354 


c21 


3356 


c?3 


3357 


c26 


3360 


c^O 


3355 



c30 


3361 


col 


1565 


COS 


100 


cox 


1645 


cs 


2710 


csm 


2654 


can 


2657 


CSX 


146 


cwg 


2676 


cwr 


4o 


am 


20 


fds 


3253 


fll 


3206 


fl2 


3211 


fid 


23 


fie 


16 


flk 


3334 


fin 


7 


fls 


32l4 


flu 


3342 


fkr 


3230 


flo 


54 


flp 


44 


fit 


3235 


foo 


12 


fou 


15 


f'po 


53 


fpr 


1164 


frr 


14 


frt 


3?66 


fs 


4 


fsl 


3? 05 


fss 


3171 


fub 


3306 


fug 


3265 


fus 


3243 


fuu 


33 


fwt 


3336 


fx 


34 


fxl 


3343 


fx2 


3352 


fyn 


20 


fys 


3267 


get 


2677 


grv 


32 


hdl 


23 


hd2 


24 


hd3 


25 


hpl 


1773 


hp3 


2024 


hp4 


2062 


hp6 


2077 


hp7 


2075 


hDt 


2702 



hrl 


26 


hre 


rl 


hur 


30 


Idl 


l44o 


Ids 


1452 


lox 


2706 


mal 


1661 


ma2 


1662 


maa 


13 


mbl 


1465 


mb2 


1655 


mco 


2442 


mdl 


1251 


mdn 


1255 


mdx 


2665 


mdy 


2666 


mel 


16 


me? 


17 


mex 


1663 


rafu 


2667 


mgl 


1417 


mg2 


1433 


mg3 


1432 


mp;4 


1437 


mhl 


2671 


mh? 


2672 


mh3 


2673 


rah4 


2674 


mhs 


C C 


mil 


1720 


mil 


l46o 


ml? 


1607 


mlO 


1165 


mom 


21^3 


mot 


2373 


mql 


1470 


mq2 


1635 


msh 


1717 


mst 


1734 


mtl 


2700 


mtb 


3367 


rate 


2664 


mth 


2137 


mtr 


2670 


raxl 


1612 


mx2 


1613 


mxc 


2701 


myl 


1622 


my2 


1623 


mzl 


1704 


nal 


3477 


nbl 


3527 


nco 


3651 


ndx 


3557 



ndy 


3607 


nfu 


3643 


nhl 


3653 


nhg 


3655 


nh3 


3657 


nh4 


3661 


nnn 


3663 


not) 


30 


nom 


3637 


not 


3647 


ntd 


2675 


nth 


3641 


ntr 


3645 


nxl 


34i7 


nyl 


3447 


oc 


230 


ocl 


375 


oce 


420 


oc3 


426 


oc4 


434 


oc5 


442 


oc6 


450 


oc9 


460 


occ 


2650 


ocd 


4ii 


oce 


402 


ocg 


25? 


och 


253 


ocl 


2651 


ocj 


250 


ock 


24l 


ocm 


373 


ocn 


374 


oco 


264 


ocp 


266 


ocq 


265 


ocr 


267 


ocs 


222 


OCX 


372 


OCZ 


227 


Otl 


2606 


Otg 


2623 


P 


3071 


pel 


2601 


pof 


2565 


ran 


31 


rlt 


10 


sac 


14 


sbf 


61 


sol 


2111 


scm 


2652 


sen 


2641 


s cw 


2703 


sex 


1651 



sft 


66 


sll 


llf 


sl2 


147'' 


sl3 


117 


sin 


106 


sn 


2704 


sp5 


2373 


sql 


220 


sq2 


221 


sq3 


171 


sq6 


2374 


sq7 


2421 


sq9 


2437 


sqt 


162 


sqx 


174 


srl 


2460 


srS 


2472 


sr3 


2521 


svk 


2525 


sr5 


2537 


sr6 


2531 


sr7 


2536 


src 


2713 


srO 


2111 


ssl 


2103 


SSc 


2106 


ss3 


2500 


SS4 


2504 


ssa 


2660 


SSC 


2656 


ssd 


2655 


ssl 


?66l 


ssm 


2653 


ssn 


2640 


stl 


2456 


St2 


2425 


str 


15 


stx 


2711 


sty 


2712 


sxl 


2646 


syl 


2647 


tl 


2643 


t2 


2644 


t3 


3362 


t4 


3363 


t5 


3364 


t6 


3365 


t? 


3366 


tcl 


1751 


tcr 


1736 


the 


21 


tlf 


11 


tno 


6 


tvl 


7 



xys 
xyt 



?64£ 
?645 



spacewar 4.0 2A/63 ddp s pt. 
3/ 



jmp sbf 
jmp a4o 
jmp al 



/ Ignore seq. break 



/ use test word for control, not lot 11 c 



o 



/ interesting and often changed constants 

/symb loc usual value (all instructions are executed, 
/ and may be replaced by jda or Jsp) 



tno. 


6, 


tvl. 


7, 


rlt. 


10, 


tlf. 


11, 


foo. 


12, 


maa. 


13, 


sac. 


1^, 


str. 


15, 


mel. 


16, 


me2. 


17, 


ddd. 


20, 


the. 


21, 


mhs. 


22, 


hdl. 


23, 


hd2. 


24, 


hd3. 


25, 


hrl. 


26, 


hr£. 


27, 


hur. 


30, 


ran. 


31, 


grv. 


32, 



law i 4l 

sar 4s 

law i 20 

law 1 l40 

-20000 

10 

sar 4s 

100 

6000 

3000 

-0 

sar 9s 

law 1 10 

law i 4o 

law i 100 

law i 200 

scl 9s 

scl 4s 

40000 



sar 6s 



/ number of torps + 1 

/ torpedo velocity 

/ torpedo reload time 

/ torpedo life 

/ fuel supply 

/ spaceship angular acceleration 

/ spaceship acceleration 

/ star capture radius 

/ collision "radius" 

/ above/2 

/ to save space for ddt 

/ amount of torpedo space warpage 

/ nimiber of hyperspace shots 

/ time in hyperspace before breakout 

/ time in hyperspace breakout 

/ time to recharge hyperfield generators 

/ scale on hyperspatial displacement 

/ scale on hyperspatially induced velocity 

/ hyperspatial uncertancy 

/ random nximber 

/ gravitational constant 



/ place to build a private control word routine. 

/ it should leave the control word in the io as follows. 

/ high order 4 bits, rotate ccw, rotate cw, (both mean hyperspace) 

/ fire rocket, and fire torpedo. Low order 4 bits, same for 

/ other ship. Routine is entered by jsp cwg. 

40/ 



cwr, 
. 20/ 



jmp mgl 
/ space 



/ normally lot 11 control 



/ routine to flush sequence breakes^ if they occur, 



sbf, tyl 

llo 2 
lac 
Ism 
jmp 1 1 

define 
xlncr X,Y,INS 
lac Y 
INS ssn 
dac Y 
lac X 
INS sen 
dac X 
term 

define 
ylncr X,Y,INS 
lac Y 
INS sen 
dac Y 

lac X _ 
-INS+add+sub ssn 
dac X 
terminate 

define 
dispatch 

add (. 3 
dap . 1 
Jmp . 
term 

define 
dlspt A,Y,B 

repeat 6 B=B+B 

llo Y 

dpy-A+B 

term 

define 
scale A,B,C 

lac A 
sar B 
dac C 
term 



define 
diff V,S,SP 

add 1 V 
dac i V 
xct SF 
add i S 
dac i S 
term 



random 



define 

lac ran 
rar Is 
xor (355670 
add (355670 
dac ran 
term 



define 
ranct S,SS,C 

random 

S 

SS 

sma 

cma 

dac C 

terminate 



define 




varsft 


dzm 


xys 


dac Tl 


Idx 


xys 


^7, idx 


xys 


lac 


"Fl 


scr 


£s 


dac 


tl 


sza 




jmp 


V2+R 


scr 


£s 


swap 


terminate 


define 




undosft 


dac 


tl 


dlo 


I2 


lac 


xys 


add 


sft 


dap 


.+1 


lac 


• 


dac 


.+6 


dac 


.+6 


xor 


(10000 


dac 


xyt 


lac 


Tl 


dlo 


T2 


scr 


« 


scr 


• 


terminate 


integrate A,: 


cli 




lac 


1 A 


scr 


9s 


scr 


Is 


div 


Tl 


hit 




cma+cli-opr 


xct 


xyt 


xct 


grv 


dac 


B 


terminate 


sft, lac 


.-1 


scr 


7s 


scr 


6s 


scr 


5s 


scr 


4s 


scr 


3s 


scr 


2s 


scr 


Is 


scr 




scl 


is 



/ change scr to scl or scl to scr. 



/sine-cosine subroutine 'Adams associates 

/calling sequence== number in AC, jda sin or jdacos. 

/argument is between +2 pi, with binary point to right of bit 3, 

/answer has binary poTnt to right of bit 0. Time = 2.35-? ms. 

/changed for auto-multiply , ddp I/19/63 



cos. 









dap 


CSX 




lac 


(62210 




add 


COS 




dac 


Sin 




jmp 


.+4 


sin. 









dap 


CSX 




lac 


sin 




spa 




sil. 


add 


(311040 
(62210 




sub 




sma 






jmp 


Si2 




add 


(62210 


si3. 


ral 


2s 




mul 


(242763 




dac 


sin 




mul 


sin 




dac 


COS 




mul 


(756103 
(121312 




add 




mul 


COS 




add 


(532511 




mul 


COS 




add 


(144417 




mul 


sin 




scl 


3s 




dac 


cos 




xor 


sin 




sma 






jmp 


csx-1 




lac 


(377777 




lio 


sin 




spi 






cma 






Jmp 


CSX 




lac 


cos 


CSX, 


jmp 


• 


si2. 


cma 






add 


(62210 




sma 






jmp 


si3 




add 


(62210 




spa 






jmp 


.+3 




sub 


(62210 




jmp 


sl3 




sub 


(62210 




jmp 


sil 



/integer square root 

/input in ac, Toinary point to right oi" bit 17, jda sqt 
/answer in ac with binary point between bits 8 and 9 
/largest input number = 177777 



sqt. 









dap 


sqx 




law 


i 23 




dac 


sql 




dzm 


sq2 




llo 


sqt 




dzm 


sqt 


sq3. 


isp 


sql 




Jmp 


.+3 




lac 


sq2 


sqx. 


Jmp 


• 




lac 


sq2 




sal 


is 




dac 


sq2 




lac 


sqt 




rcl 


2s 




sza 


i 




jmp 


sq3 




dac 


sqt 




lac 


sq2 




sal 


Is 




add 


(1 




sub 


sqt 




sma+sza-skp 




O'mp 


sq3 




spa 






cma 






dac 


sqt 




idx 


sq2 




jmp 


sq3 


sql. 







sq2. 








/outline compiler 

/ac=where to compile to, call Jda oc 

/ot=addres of outline table 



define 






pllnst A 




lac A 




dac 1 oc 




Idx oc 




terminate 


define 






comtab A, B 




pllnst A 




Jsp ocs ■ 




lac B 




Jrap oce 




terminate 


ocs. 


dap ocz 




dlo 1 oc 




idx oc 




dlo 1 oc 




Idx oc 


ocz. 


jmp . 


oc. 







dap OCX 




lac 1 OCX 




dap ocg 




pllnst (stf 5 




dap ocm 




idx OCX 


ock. 


pllnst flac sxl 
pllnst (lio syl 






elf 6 __ 


ocj. 


setup occ,6 


ocg. 


lio - 


och. 


cla 




rcl 3s 




dlo ocl 




lio (rcl 9s 




dispatch 




opr 




jmp ocl 


oco. 


Jmp oc2 


ocq. 


jmp oc3 


ocp. 


jmp oc4 


ocr. 


jmp oc5 




jmp oc6 



/puts in swap 



/outline compiler proper 



/outline table 



plinst (szf 5 /7 code 

add (4 

dap ocn 

plinst ocn _ 

plinst fdac _sxl 

plinst Idio syl 

plinst (jmp sq6 

plinst (elf 5 

plinst (lac scm 

plinst (cma _ 

plinst fdac s_cm 

plinst (lac ssm 

plinst (cma _ 

plinst (dac _ssm 

plinst (lac c.sm 

plinst (llo _ssd 

plinst (dac s_sd 

plinst (dlo csm 

plinst (lac s|sc 

plinst (llo c_sn 

plinst (dac _csn 

plinst (dio ssc 

plinst ocm 
OCX, Jmp . 



ocm. 


jmp . 








ocn. 


Jmp . 






ocl. 


plinst (add "ssn 

Jsp ocs 

lac ( sub "sen 






oce. 


dac 1 oc 
idx oc 
Jsp ocs 
plinst (ioh 
lac (dpy-4000 






ocd. 


dac i oc 

idx oc 

llo ocl 

count occ, och 

idx ocg 

mp ocJ 






oc2. 


comtab i 


^add scm. 


(add 


ssm 


oc3. 


com tab ( 


^add _ssc, ( 


^sub 


csm 


oc4. 


com tab ( 


, sub scm, ( 


, sub 


_ssm 


oc5. 


comtab ( 


add csn, ( 


, sub 


ssd 


oc6. 


szf 6 

Jmp oc9 

stf 6 

plinst (dac ssa 

lac (dio ssi 

Jmp ocd 






oc9. 


elf 6 

plinst (lac ssa 

lac (llo ssi 








Jmp ocd 









/display a star 


define 






starp 




add ^x 




swap 




add by 




swap 




ioh 




dpy-4000 




terminate 


iDlp, 


dap blx /s 




szs 60 




Jmp blx 




random 




rar 9s 




and (add 3^0 




spa 




xor (377777 




dac Fx 




lac ran 




ral 4 s 




and (add 3^0 




spa 




xor (377777 
dac by 






jsp bpt 




ioh 


blx. 


jmp . 


bpt. 


dap bpx 




random 




sar 9s 




sar 5 s 




spa 




cma 




sal 3s 




add (bds 




dap bjm 




cla ell elf 6-opr-opr 




dpy-4000 


bjm. 


jmp . 


bds. 


repeat 20, starp 




szf 6 


bpx. 


jmp . 




stf 6 




cma 




swap 




cma 




swap 




jmp bjm 



/background display • 3/13/62, prs, 

define 
dlslls J, Q, B 

repeat 6, B=B4B 

elf 5 

lac flo+R 

dap fpo+R 
fs, dap fin+R 

dap fyn+R 

Idx fyn+R 

fin, lac /lac X 

sut) fpr /right margin 

sma 

Jmp fgr+R 

add (2000 
frr, spq 
fou, Jmp fuu+R 
fie, sub (lOOO 

sal 8s 
fyn, lio /llo Y 

dpy-l+B 

stf 5 
fid, Idx fyn+R 

sad (lio Q+2 

jmp flp+R 

sad fpo+R 

Jmp fx+R 

dap fln+R 

idx fyn+R 

Jmp fln+R 

fgr, add (-20000+2000 
Jmp frr+R 

fuu, szf 5 

fx, Jmp flo+R+l /return 

idx flo+R 

idx flo+R 

sas (q,+2 

Jmp fid+R 

law J 

dac flo+R 

Jmp fid+R 

flp, lac (llo J 

sad fpo+R 

Jmp fx+R 

dap fin+R 

law J+1 

dap fyn+R 

Jmp fln+R 

fpo, llo 
flo, J 

terminate 



define 
background 

jsp bck 
termin 

bck, dap bcx 
szs 4o 
Jmp "bcx 
Isp bcc 

bcx, Jmp . 



law i 2 

dac bcc 

dislis lj,lq,3 

dlslis 2j,2q,2 

dlslls 3j,3q,l 

dlslis 4j,4q,0 

isp bkc 

Jmp bcx 

law 1 20 

dac bkc 

law 1 1 

add fpr 

spa 

add (?0000 

dac fpr 

Jmp bcx 



bcc, 
bkc, 
fpr, 10000 



mul=mus 
dlv=dis 



start 



spacewar 4.0 ddp 2/2/63 pt.2 
/main control routine for spaceships 



nob=30 

mlO, load mtc, -4000 

init mil, mtb 

add ( nob 

dap mxl 
nxl=mtb nob 

add (nob 

dap myl 
nyl=nxl nob 

add ( nob 

dap mal 
nal=nyl nob 

add (nob 

dap mbl 
nbl=nal nob 

add jjaol) 

dac mdx 
ndx=nbl nob 

add _(n6h 

dac mdy 
ndy=ndx nob 

add ( nob 

dap mom 
nom=ndy nob 

add (2 

dap mth 
nth=nom 2 

add {2 

dac mfu 
nfu=nth 2 

add j[2 

dac mtr 
ntr=nfu 2 

add (2 

dap mot 
not=ntr 2 

add (2 

dap mco 
nco=not 2 

add (2 

dac mhl 
nhl=nco 2 

add (2 

dac mh2 
nh2=nhl 2 

add (2 

dac mh3 
nh3=nh2 2 

add (2 

dac mh4 
nh4=nh3 2 
nnn=nh4 2 



/total number of colliding objects 

/delay for loop 

/loc of calc routines 

/ X 

/ y 



/ count for length of explosion or torp 

/ count of instructions taken by calc routine 

/ dx 

/ dy 

/angular velocity 

/ angle 

/fuel 

/ no torps remaining 

/ outline of spaceship 

/ old control word 



law ssl 
xor mtt) 
sza 

jmp mdn 
law ss2 
xor mtb 1 
sza 

jmp mdn 

law 1 / test if both ships out of torps 
add ntr 
spa 

jmp mdl 
law 1 
add ntr 1 
spa i 
jmp mdn 
mdl, xct tlf / restart delay is 2X torpedo life 
sal Is 
dac ntd 
jmp mil 

mdn, count ntd, mil 
stf 1 
stf 2 
law ssl 
xor mtb 
sza 
elf 1 
sza _i 
idx Isc 
law ss2 
xor mtb 1 
sza 
elf 2 
sza ± 
idx 2s c 
elf 2 
Jmp a 



al, law mg2 / test word control 

dac cwg 
jmp a 

a40, law cwr / here from start at 4 



a5. 



a4. 



a6. 



law 


mg2 


dac 


cwg 


jmp 


a 


law 


cwr / h 


dac 


cwg 


Jmp 


a6 


lac 


get 


sma 




jmp 


a5 


count get, a5 


lac 


Isc 


sas 


2sc 


Jmp 


a4 


law 


1 1 


dac 


get 


lat 




and 


(40 


sza 


1 


Jmp 


a2 


lac 


Isc 


lio 


2sc 


hit 




lat 




and 


(40 


sza 




jmp 


a2 


dzm 


Isc 


dzm 


Tsc 


lat 




rar 


6s 


and 


(37 


sza 




cma 




dac 


get 


clear mtb, nnn-1 


law 


ssl 


dac 


mtb 


law 


ss2 


dac 


mtb i 


lac 


(200000 


dac 


nxl 


dac 


nyl 


cma 




dac 


nxl 1 


dac 


nyl 1 


lac 


(144420 


dac 


nth 



a2, clear mtb, nnn-1 ' / clear out all tablej 



a3. 



law 


nnn 




dac 


not 




llo 


ddd 




spi 


1 




jmp 


a3 




J da 


oc 




otl 






dac 


not 


1 


J da 


oc 




ot2 






xct 


tno 




dac 


ntr 




dac 


ntr 


1 


lac 


foo 




dac 


nfu 




dac 


nfu+1 


law 


200C 


) 


dac 


nbl 




dac 


nbl 


1 


xct 


mhs 




dac 


nh2 




dac 

Jmp 


nh2 
mlO 


1 



/ start of outline program 



/ compile outline 



/ control word get routines 



mgl. 


dap 

ell 


mg3 






lot 


11 




mg3. 


jmp 


• 




mg2. 


dap 
lat 


mg4 






swap 




mg4. 


Jmp 


# 




mil. 


lac 


• 


/ 1st control word 




sza 


i 


/ zero If not actlv 




Jmp 


mql 


/ not active 




swap 






Idx 


moc 






spl 








Jmp 


mq4 






law 


1 






add 


mil 






dap 


ml? 






law 


1 






add 


mxl 






dap 


mxc 






law 


1 






add 


myl 






dap 


my 2 






law 


1 






add 


mal 






dap 


ma£ 






law 


1 






add 


mbl 






dap 


mb2 




mot. 


lac 


• 






dap 


sp5 




ml2. 


lac 


• 


/ 2nd control word 




spq 




/ can It collide? 




Jmp" 


mq2 


/ no 


mxl. 


lac 


• 


/ calc If collision 


mx2. 


sub 


• 


/ delta X 




spa 




/ take abs val 




cma 








dac 


mtl 






sub 


mel 


/ < EPSILON ? 




sma 








Jmp 


mqS 


/ no 


rayl. 


lac 


• 




my£. 


sub 
spa 
cma 


• 






sub 


mel 


/ < epsllon ? 




sma 








Jmp 


mq2 


/ no 




add 


mtl 






sub 


me? 






sma 







Jmp mq2 

lac (mex 400000 /yes, EXPLODE 

dac 1 mil / replace calc routine with explosion 

dac i ml2 

lac 1 mbl / duration of explosion 
rnb2, add . 

cma 

sar 8s 

add (1 
mal, dac . 
ma2, dac . 
mq2, idx mx2 / end of comparison loop 

idx my2 

idx ma2 

idx mt)2 

index ml2, (lac mtb nob, ml2 



mq4, 
mbl, 
mql. 



mq3. 



lac i mil 
dap . 1 
jsp . 
lac _^ 
add mtc 
dac mtc 
idx mxi 
Idx myl 
idx mai 
Idx mbl 
idx mdx 
Idx mdy 
Idx mom 
Idx mth 
Idx mas 
idx mfu 
idx mtr 
idx mot 
idx mco 
idx mhl 
idx mh2 
Idx mh3 
idx mh4 
index mil, 
lac i mil 
sza 1 
jmp mq3 
dap . 1 
Jsp . 
lac i_ mbl 
add mtc 
dac mtc 
background 
jsp blp 
count mtc, 
Jmp mlO 



/ routine for calculating spaceship 

/ or other object and displaying it 

/ alter count of member of instructions 



/ end of comparison and display loop 



(lac mtb nob-1, mil 

/ display and compute last point 
/ if active 



/ display stars of the heavens 
/ display massive star 
/ use up rest of time of main loop 
/ repeat whole works 



/ mlsc calculation routines 
/ explosion 

max, dap mxr 

lac 1 mdx 

sar 3s 

add 1 mxl 

d'ac i mxl 

lac 1 mdy 

sar 3s 

add 1 myi 

dac 1 myl 

law mst 

dap msh 

lac 1 mbl / time Involved 

cma cli-opr 

sar 3.S 

dac mxc 
msl, sub (l40 

sma 

Idx msh 
mzl , random 

and (777 

lor (scl 

dac mil 

random 

scr 9s 

sir 9s 
msh, xct . 
mil, hit 

add i myl 

swap 

add 1 mxl 

dpy-i 300 

count mxc, mzl 

count i mal, mxr 

dzm 1 mil 
mxr, jmp . 

mst, scr Is 
scr 3s 

/ torpedo calc routine 

tcr, dap trc 

count i mal, tcl 
lac (mex 400000 
dac 1 mil 
law i 2 
dac i mal 
jmp trc 

tcl, lac 1 mxl 

sar 9s 

xct the_ 

add 1 mdy 

dac 1 mdy 



trc. 



sar 


3e 


3 


add 


1 


myl 


dac 


1 


myl 


sar 


9! 


3 


xct 


the 


add 


1 


mdx 


dac 


1 


mdx 


sar 


3s 


add 


1 


mxl 


dac 


1 


mxl 


dlspt 


1, 1 


jmp 


• 





myl, 1 



/ hyperspace routines 

/ this routine handles a non-collldlng ship Invisibly 
/ in hyperspace 

hpl, dap hp2 

count 1 mal, hp2 

law hp3 / next step 

dac 1 mil 

law 7 

dac 1 mt»l 

random 

scr 9s 

sir 9s 

xct hrl 

add 1 mxl 

dac 1 mxl 

swap 

add 1 myl 

dac 1 myl 

random 

scr 9s 

sir 9s 

xct hr2 

dac 1 mdy 

dlo 1 mdx 

setup TTpt^S 

lac ran 

dac 1 mth 
hp4, lac 1 mth 

sma 

sut) (311040 

spa 

add (311040 

dac 1 mth 

count Hpt,hp4 

xct hd2 

dac 1 mal 
hp2, jmp . 

/ this routine handles a ship breaking out of 
/ hyperspace. 

hp3, dap hp5 

count 1 mal,hp6 
lac 1 mhl 
dac 1 mil 
law 2000 
dac 1 mbl 
count 1 riih2,hp7 
dzm 1 iiih2 



hp7. 



hp6, 
hp5. 



xct 


hd3 


dac 


1 nih3 


lac 


1 mh4 


add 


hur 


dac 


1 mh4 


random 


lor 


(400000 


add 


1 rnh4 


spa 




Jmp 


hp5 


lac 


(mex 400000 


dac 


1 mil 


law 


1 10 


dac 


1 mal 


law 


2000 


dac 


1 mbl 


lac 


1 mxl 


dispt 1, i myl. 


Jmp 


• 



/ spaceship calc 

ssl, dap srt / first spaceship 

jsp ± cwg 

dlo sew 

jmp srO 

ss2, dap srt_ / second spaceship 

Jsp 1 cwg 

rlr 4s 

dlo sew 

srO, 

scl, llo s'cw /control word 

elf 6 cla-opr /update angle 
. spl 

add maa 

rll is 

spl 

sub maa 
mom, add . 

dac 1 mom 

szs 10 

jmp sr8 

dzm 1 mom 

ral 7s 
sr8, rll Is 

spl 

stf 6 _ 

llo 1 mfu 

spl 1 

elf 6 

mth, add . 
sma 

sub (311040 
spa 

add (311040 
dae 1 mth 
Jda _sln 
dae _sn 
dzm bx 
dzm Fy 
szs 6o 
jmp bsg 
lac _i mxl 
dac tl 
mul Tl 
ser Is 
dac acx 
ela 

ser 2s 
dlo Tox 
lac i myl 
dae Tl 
mul tl 
ser l_s 
dac acy 



cla 

scr 2s 

swap 

add lox 

swap 

scl 2s 

add acx 

add acy 

sub str 

sma 1 sza-skp 

jmp pof 

add str 

varsft 

dac Tl 

jda sqt 

mul ^1 

undosft 

scr 9s 

scr 6s 

szs 1 20 / switch 2 for light star 

scr 2s 
sza 

Jmp bsg 
scr Is 
dio tl 

Integrate mxl, B'x 
Integrate myl, '5'y 
"bsg, cla 

sad 1 mfu 

elf 6 

lac i mth 

jda c_os 

dac cs 

sar 9s 

xct sac 

szf i 6 

cla 

add Fy 

dlff_mdy, myl, (sar 3s 

lac sn 

sar 9s 

xct sac 

cma 

szf 1 6 

cla 

add Fx 

dlff mdx, mxl,_(sar 3s 
spl, scale _sn, 5s, _ssn 
sp2j, scale cs, 5s, sen 

lac i mxl 



suTd s^sn 

dac _sxl 

sub s_sn 

dac stx 

lac i_ myl 

add _scn 

dac sy± 

add s_cn 

dac sty 

scale _sn, 9s, ssn 

scale_ cs, 9s, sen 

lac _ssn 

dac _ssm 

add _5cn 

dac _ssc 

dac _ssd 

lac s_sn 

sub s_cn 

dac csn 

cma _ 

dac _csm 

lac s_cn 

dac scm 

cla cll-opr 

dpy-400O 



sp5. 


J'mp . 




sq6. 


loh 






rancjt sar 9s, sar 


4s, src 




llo sew 






rll 2s 






spl 1 


/ not blastin, 


sqT, 


Jmp sq9 

scale sn, 8s, ssn 

scale cs, 8s, sen 

count 1 mfu, st2 

dzm i mfu 

jmp sq9 


/ no tall 



st2, yiner sxl_^ syl, sub 

dispt 1., syl 

count src,sq7 
sq9, count 1 mal, sr5 / check If torp tube reloaded 

dzm 1 mal / prevent count around 
meo, lac . / previous contro word 

cma 

szs 1 30 

cle __ 

and sew / present control word 

ral 3s / torpedo bit to bit 

sma 

Jmp sr5 _ /no launch 

count 1 mtr, stl / check if torpedos exhausted 

dzm i mtr / prevent count around 

Jmp sr5 
stl, init srl, mtb / search for unused object 
srl, lac . 

sza i / if unused 

Jmp sr2 

index srl, (lac mtb nob, srl 

hit / no space for new objects 

Jmp . -1 



sr2, lac (tcr / set up torpedo calc 

dac 1 srl 

law nob 

add srl 

dap s_s3 

llo stx 
ss3, dio . 

add ( nob 

dap s_s4 

lio sty 
ss4, dio . 

add (nob 

dap sr6 

add ( nob 

dap sr7 

add ( nob 

dap sr3 

add ( nob 

dap _sr4 

lac sn 

xct tvl 

cma _ 

add i mdx 
sr3, dac _^ 

lac cs 

xct tvl 

add 1 mdy 
sr4, dac . 

xct rlt 

dac i mal / permit torp tubes to cool 
trf, xct tlf / life of torpedo 
sr6, dac . 

law 20 
sr7, dap . / length of torp calc. 

sr5, count i mh3, 5t3 / hyperbutton active? 

dzm i mh3 

lac i mh2 

sza i 

jmp ^t3 

lac sew 

cma 

ior i mco 

and (600000 

sza 

jmp st3 

lac i mil 

dac i mhl 

lac (hpl 400000 

dac 1 mil 

xct hdl 

dac i mal 

law 3 

dac i mbl 
st3, ^ ^ 
^^t , - j mp "V' ''-i> L -^/fc i—7»T ^ 



/ here to handle spaceships dragged Into star 



/ spaceship in star 

pof , dzm 1 mdx 
dzm 1 mdy 
szs 50 
jmp pol 
lac (377777 
dac 1 mxl 
dac 1 myl 
lac 1. mbl 
dac s sn 
count ssn, . 
Jmp srt 

pol, lac (mex 400000 / now go bang 
dac 1 mil 
law 1 10 
dac 1 mal 
jmp srt 



/ outlines of spaceships 

otl, 111131 

mill 

mill 

111163 

311111 

146111 

111114 

700000 
. 5/ 

ot2, 013113 

113111 

116313 

131111 

161151 

111633 

365114 

700000 
. 5/ 



constants 
variables 
p, . 200/ / space for patches 

mtb, / table of objects and their properties 



start 4 



spacewar game saver patch 

mgl=:1510 
ran=:3l 



/+ tw 



/ -t- bw -^ punch 
/- tw -> read 



40/ 
cwr. 



dap cwx 
lat 



cw2. 



cw3, 
cwx J 

cwl. 



6000/ 
go. 



pu, 



cks 

ril is 

spl+spa i-skp 

Jmp owl 

rrb 

rpa-i 

rlr 4s 

jmp . 

ril 3s 

spi+sma 1-skp 
jmp cw2 
jsp mgl 
ril 4s 
ppa-i 
jmp cw3 



lat 
sma 

jmp pu 
rpb 

dlo ran 
rpa-1 
Jmp 4 

law 1^ £00 

dac pc 

cli 

ppa _ 

Isp pc 

Jmp . -2 

11 o ran 

ppb ril 6s 

ppb ril 6s 

pp"b-i 

Jmp 4 



/new starting address 



variables 



start go 



IJ 


6077 


Iq 


6117 


Isc 


3151 


2 J 


6121 


2-. 


6i4i 


2sc 


3152 


3j 


6143 


3q 


6403 


, J" 


6405 


^q 


77^7 


a 


1402 


al 


137^ 


a2 


1^37 


a3 


1470 


a4 


1420 


a4o 


1377 
l4i4 


a5 


a6 


1431 


acx 


3162 


acy 


3164 


bcc 


1257 


iDCk 


746 


"bcx 


752 


bds 


534 


bjm 


533 


iDkc 


1260 


blp 


466 


blx 


513 


bpt 


514 


bpx 


735 


bsg 


2317 


bx 


3135 


^y 


3136 


COS 


100 


cs 


3165 


csm 


3127 


csn 


3132 


CSX 


146 


cwg 


3153 


cwr 


40 


ddd 


20 


fgr 


32 


fid 


22 


fie 


15 


fin 


6 


flo 


55 


flp 


45 


f oo 


12 


fou 


14 


fpo 


54 


fpr 


1261 


frr 


13 


fs 


3 


fuu 


34 



fx 


35 


fyn 


17 


get 


3154 


grv 


32 


hdl 


23 


hcL2 


24 


hd3 


25 


hpl 


2001 


hp2 


206l 


hp3 


2062 


hp4 


2051 


hp5 


2123 


hp6 


2120 


hp7 


2074 


hrl 


26 


hr2 


27 


hur 


30 


lox 


3163 


mal 


1610 


ma 2 


1611 


maa 


13 


mbl 


1624 


rat)? 


l6o4 


mco 


2466 


mdl 


1346 


mdn 


1352 


mdx 


3l4o 


mdy 


3l4l 


mel 


16 


me 2 


17 


mex 


1667 


mfu 


3142 


mgl 


1510 


mg2 


1514 


mg3 


1513 


mg4 


1520 


mhl 


3144 


mh2 


3145 


rah3 


3146 


mh4 


3147 


mhs 


22 


mil 


1731 


mil 


1521 


ml2 


1552 


ml,0 


1262 


moc 


3155 


mom 


2143 


mot 


1550 


raql 


1627 


mq2 


1612 


mq3 


1662 


mqh 


1621 


msl 


1706 


msh 


1730 



mst 


1745 


mtl 


3156 


mtt) 


3371 


mtc 


3137 


mth 


2157 


mtr 


3143 


mxl 


1555 


mx2 


1556 


mxc 


3157 
1744 


mxr 


myl 


1565 


myg 


1566 


mzl 


1711 


nal 


3501 


nbl 


3531 


nco 


3653 


ndx 


3561 


ndy 


3611 


nfu 


3645 


nhl 


3655 


nhr 


3657 


nh3 


3661 


nh4 


3663 


nnn 


3665 


nob 


30 


nom 


3641 


not 


3651 


ntd 


3150 


nth 


3643 


ntr 


3647 


nxl 


3421 


nyl 


3451 


oc 


230 


ocl 


375 


oc2 


420 


oc3 


426 


oc4 


434 


oc5 


442 


oc6 


450 


oc9 


460 


occ 


3123 


ocd 


4li 


oce 


402 


ocg 


252 


och 


253 


oci 


3124 


ocj 


250 


ock 


241 


ocm 


373 


ocn 


374 


oco 


264 


ocp 


266 


ocq 


265 


ocr 


^67 



ocs 


22.; 


OCX 


372 


ocz 


227 


otl 


2626 


ot2 


2643 


p 


3171 


pol 


2621 


pof 


2605 


ran 


31 


rlt 


10 


sac 


14 


sbf 


61 


scl 


2134 


scm 


3125 


sen 


3114 


sew 


3160 


sft 


66 


sil 


112 


si? 


147 


sl3 


117 


sin 


106 


sn 


3161 


spl 


£353 


sp? 


2356 


sp5 


2417 


sql 


220 


sq2 


2?1 


sq3 


171 
2420 


sq6 


sq7 


2437 


sq9 


2463 


sqt 


162 


sqx 


174 


srl 


2504 


sr2 


2514 


sr3 


2543 


sr4 


2547 


sr5 


2556 


sr6 


2553 


sr7 


2555 


sr8 


2151 


src 


3170 


srO 


2134 


srt 


2604 


ssl 


2124 


ss2 


2130 


ss3 


2522 


ss4 


2526 


ssa 


3133 


ssc 


3131 


ssd 


3130 


ssi 


3134 


ssm 


3126 


ssn 


3113 



stl 


2502 


st2 


2451 


st3 


2602 


str 


15 


stx 


3166 


sty 


3167 


sxl 


3121 


syl 


3122 


tl 


3116 


t£ 


3117 


tcl 


1757 


tcr 


1747 


the 


21 


tlf 


11 


tno 


6 


trc 


2000 


trf 


2552 


tvl 


7 


V? 


3 


xys 


3115 


xyt 


3120 



